Заполните произвольными числами из промежутка от 0 до 20 целочисленный массив С размерностью 20 элементов и выведите его элементы на экран монитора через 3 пробела.
Сохраните программу и отправьте на проверку учителю
Ответы на вопрос
Ответил Gleb1Kosyrev
0
var с:array[1..20] of integer;
m:integer;
begin;
randomize;
for m:=1 to 20 do
begin;
с[m]:=random(0,20);
write(с[m],' '); //самому отвратно так делать, но что поделаешь, десу
end;
end.
m:integer;
begin;
randomize;
for m:=1 to 20 do
begin;
с[m]:=random(0,20);
write(с[m],' '); //самому отвратно так делать, но что поделаешь, десу
end;
end.
Ответил semgreez
0
uses crt;
var с:array[1..20] of integer;
m:integer;
begin
clrscr;
randomize;
for i:=1 to 20 do
begin;
с[i]:=random(20)+1;
write(с[i],' ' );
end;
readkey;
end.
var с:array[1..20] of integer;
m:integer;
begin
clrscr;
randomize;
for i:=1 to 20 do
begin;
с[i]:=random(20)+1;
write(с[i],' ' );
end;
readkey;
end.
Новые вопросы
Другие предметы,
2 года назад
Алгебра,
2 года назад
Математика,
9 лет назад
Математика,
9 лет назад
Обществознание,
9 лет назад