Question

На языке ПАСКАЛЬ

1. Составить программу, которая сформирует двумерный массив, состоящий из 3-х строк и 4-х столбцов из целых случайных чисел из интервала (-50;50) и выведет на экран в виде таблицы.

2. Составить программу, которая сформирует одномерный массив из 10 целых случайных чисел из интервала (-20;20), определит сумму всех элементов массива, найдет максимальное и минимальное значения.

Answer 1

Ответ:

1)

Program z1;

var i,j:integer;

a:array[1..3,1..4] of integer;

begin

for i:=1 to 3 do begin

 for j:=1 to 4 do begin

   a[i,j]:=random(101)-50;

   write(a[i,j]:5);

   end;

   writeln();

 end;

end.

2)

Program z2;

var i,j,max,min,sum:integer;

a:array[1..10] of integer;

begin

min:=1000;

for i:=1 to 10 do begin

 a[i]:=random(41)-20;

 print(a[i]);

 sum:=sum+a[i];

 if(a[i] > max) then max:=a[i];

 if(a[i] < min) then min:=a[i];

 end;

writeln();

writeln('Сумма: ',sum);

writeln('Максимальное: ',max);

writeln('Минимальное: ',min);

end.