len22
?>

визначити добуток цілих непарних чисел та їх кількість від а до с (значення цілих чисел а та с задає користувач запишіть виконання даної програми, якщо а-3 і с-6.​

Информатика

Ответы

remontsalarievo2
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.

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

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

визначити добуток цілих непарних чисел та їх кількість від а до с (значення цілих чисел а та с задає користувач запишіть виконання даної програми, якщо а-3 і с-6.​
Ваше имя (никнейм)*
Email*
Комментарий*

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

annakorolkova79
membuksdk
turovvlad
kuchino09
manager-3
Валуева
badalovao256
Zebra198383
fta1309
vdm4275
egolopuzenko4253
Kochinev7
Yeroshkina411
Валерьевна1601
ЮрьевичКарпова1564