Напишите программы плиз. Очень срочно. 1. Массив Е(25) заполните случайными числами от 0 -30, вывести в строчку через пробел. 2. Массив М(30) заполнит числами кратными 5, вывести в столбик 3. Массив Д(15) заполнить отрицательными числами, вывести в столбик с комментариями.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: