Question

Напишите программы плиз. Очень срочно. 1. Массив Е(25) заполните случайными числами от 0 -30, вывести в строчку через пробел. 2. Массив М(30) заполнит числами кратными 5, вывести в столбик 3. Массив Д(15) заполнить отрицательными числами, вывести в столбик с комментариями.

Answer 1

Ответ:

Program n1;  

var q,w,e:integer;  

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

begin

 for q:=1 to 25 do begin            

a[q]:=random(30);  

 write(a[q],' ');  

 end;

end.

Program n2;  

var q:integer;  

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

begin

 a[1]:=5;

   writeln(a[1],' ');

 for q:=2 to 26 do begin            

a[q]:=a[q-1]+5;  

 writeln(a[q],' ');  

 end;

end.

Program n3;  

var q:integer;  

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

begin

 for q:=1 to 15 do begin            

a[q]:=random(30)-50;

 writeln(a[q],' ');  

 end;

end.

Объяснение: