Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Увеличение целочисленного массива МР(100) в два раза
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Anonymous
Guest
 
Сообщений: n/a
По умолчанию Увеличение целочисленного массива МР(100) в два раза - 14.12.2002, 20:01

В целочисленном массиве MP(100)нечётные элементы увеличить в 2 раза,а у элементов с чётными номерами изменить знаки на противоположные.

И если не сложно ещё одну:

Дана целочисленная матрица A(M,N) и натуральное число K<N. Вычислить все ли элементы К-того столбца матрицы А чётные.

Пожалуйста,помогите!!! Необходимо для сдачи сессии,а то вылечу из академии!

Заранее благодарен.
Ответить с цитированием
  (#2 (permalink)) Старый
Anonymous
Guest
 
Сообщений: n/a
По умолчанию 15.12.2002, 03:08

Будут какие-то вопросы - задавай!
Код:
program MaS;{Number 1}
uses crt;
const n=100;
var
   MP:array[1..n] of integer;
   i:integer;
begin
   ClrScr;
   for i:=1 to n do
   begin
      MP[i]:=random(50);
      write(MP[i],' ');
   end;
   writeln;
   for i:=1 to n do
   begin
      if (MP[i] mod 2<>0) and (MP[i]<>0) then MP[i]:=2*MP[i];
      if i mod 2=0 then MP[i]:=-MP[i];
   end;
   for i:=1 to n do write(MP[i],' ');
   readln;
end.

program MaSX; {Number 2}
uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,k,m,n:integer;
   b:boolean;
begin
   ClrScr;
   write('Input m -> ');readln(m);
   write('Input n -> ');readln(n);
   for i:=1 to m do
      for j:=1 to n do
      begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
      end;
   for i:=1 to m do
   begin
      for j:=1 to n do write(a[i,j],' ');
      writeln;
   end;
   write('Input k (k<n) -> ');readln(k);
   b:=true;
   for i:=1 to m do
     if a[i,k] mod 2<>0 then begin b:=false;break;end;
   if b then write('Yes!') else write('No');
   readln;
end.
Ответить с цитированием
  (#3 (permalink)) Старый
SH@DOW SH@DOW вне форума
Member
 
Сообщений: 2,085
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.09.2002
По умолчанию 16.12.2002, 12:25

Чота кода многовато получилось!
Ответить с цитированием
  (#4 (permalink)) Старый
Vlad
Guest
 
Сообщений: n/a
По умолчанию 16.12.2002, 16:16

Почему многовато-то : ?
Ответить с цитированием
  (#5 (permalink)) Старый
SH@DOW SH@DOW вне форума
Member
 
Сообщений: 2,085
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.09.2002
По умолчанию 16.12.2002, 16:39

О еслиб знал то сказал бы!
Ответить с цитированием
Ads.
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Увеличение связи bas53 Любые вопросы от новичков 1 27.08.2011 18:17
Увеличение оперативки ashas09 Память 3 25.06.2011 20:36
Увеличение производительности UnBr Любые вопросы от новичков 11 04.09.2010 17:02
Ежедневное увеличение числа frenku PHP 3 03.09.2010 18:54
Как заменить все положительные элименты целочисленного массива apatche Вопросы начинающих программистов 1 31.05.2010 12:25
Увеличение мощности звука elmix Звук 1 21.02.2010 03:21
увеличение памяти jekajekajeka Память 10 14.01.2010 19:08
Увеличение дальности мыши. Призрак Электроника 15 17.09.2007 12:22
Сортировка целочисленного массива Henrih Вопросы начинающих программистов 9 17.05.2006 21:32
Как написать функции сортировки целочисленного массива nsmile Вопросы начинающих программистов 1 13.12.2004 02:58
Конвертирование из целочисленного формата в символьный из Edit в Memo SadoMazaXist C++ Builder 3 12.02.2004 19:55
Zoom - увеличение изображения Dimon Delphi 3 07.05.2003 00:47



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов