Написать программу для следующих расчетов. Создать одномерный массив размерностью N (вводится с диалогового - id1795427320221019 от срочно119 19.10.2022 21:55

Question

Информатика: Написать программу для следующих расчетов. Создать одномерный массив размерностью N (вводится с диалогового окна) состоящий из случайных целых чисел в диапазоне [-15;25]. Вывести массив на лист. Найти минимальное число массива. Если минимум является четным, то в ячейку B1 вывести половину его значения, иначе вывести в ячейку B2 удвоенное значение. (Решите в ).​

срочно119 · Accepted Answer

//Блок-схема во вложении //Pascal ABC.NET v3.1 сборка 1172 Var  ma:array of array of integer;  i,j,r,n,m,s:integer; begin randomize;  readln(n);  readln(m);  setlength(ma,n);  for i:=0 to n-1 do  setlength(ma[i],m);  writeln( Matrix: );   for i:=0 to n-1 do    begin     writeln;      for j:=0 to m-1 do       begin        ma[i,j]:=random(50);        write(ma[i,j]:4);       end;    end;  writeln;  writeln( Res: );  for i:=0 to n-1 do   begin    for j:=0 to m-1 do     s:=s+ma[i,j];    writeln(i+1,...

MOGZ ответил