doorhan42n6868
?>

Напишите блок-схему и программу к задаче: Найти максимум среди чисел одномерного массива. Массив задан целыми числами от 1 до

Информатика

Ответы

pafanasiew
Program asd;
Var A,B:array [1..250,1..250] of integer;
    i,j,n,m,k: integer;
BEGIN
 Write('Введите n: '); Readln(n); 
 Write('Введите m: '); Readln(m); 
for i:= 1 to n do 
 begin 
  for j:= 1 to m do   
 begin   
  A[i,j]:=random(10);   
  write(A[i,j]:3); 
  end; 
  writeln;
  end;
writeln;
for i:= 1 to n do 
    for j:= 1 to m do 
  begin   
 If  A[i,j] mod 2=1 then inc(k); 
   end;    
      If n=m then 
   begin     
Writeln('Транспонирование: ');   
  for i:=1 to n do
  begin 
  for j:=1 to m do   
 begin   
  write(A[j,i]:3);   
  B[i,j]:=A[i,j];   
 end; 
 writeln; 
 end; writeln; 
    end   
  else
Writeln('Кол-во нечетных элементов: ',k);
END.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите блок-схему и программу к задаче: Найти максимум среди чисел одномерного массива. Массив задан целыми числами от 1 до
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ebelskaia
klimovala2
kolgatin69
Дарья16
Оксана
anytkaakk
SitnikovYurii5
Хохлов
Konstantinovna1936
rosik76
tarigor
Марина
vse-v-sad-sdesign
Александра Викторович531
muzaffarovich-Sergei1777