1. Используя операторы присваивания, создать и распечатать в одну строчку на экране монитора массив - id1719922420220209 от 27sergey1 09.02.2022 05:39

Question

Информатика: 1.     Используя операторы присваивания, создать и распечатать в одну строчку на экране монитора массив МАС1, состоящий из трех элементов, равных 61, -41, 81.   21. 1) Создать массив М1(4), заполненный целыми случайными числами в интервале от 0 до 50. 2) Вывести элементы массива на печать в виде: 1. элемент=число 2 элемент=число 3 элемент=число 4 элемент=число 3) Найти сумму элементов массива и напечатать ее на отдельной строке в виде: СУММА=число 4) Подсчитать количество элементов, значение которых

27sergey1 · 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 ответил