Вывести на экран 6 случайных чисел от 0 до 20 и номера элементов больше 10
Answers & Comments
Issenpilon
Var i:integer; mas: array [1..6] of integer; begin writeln('6 случайных чисел:'); randomize; for i:=1 to 6 do begin mas[i]:=random(0,20); write(mas[i], ' '); end; writeln(' '); writeln('Номера элементов > 10:'); for i:=1 to 6 do begin if mas[i] > 10 then write(i,' '); end; end.
0 votes Thanks 1
arximed
Спасибо. Только я не понимаю, что это за mas везде вместо rand?
Issenpilon
mas - это название переменной. Это массив.
Answers & Comments
i:integer;
mas: array [1..6] of integer;
begin
writeln('6 случайных чисел:');
randomize;
for i:=1 to 6 do begin
mas[i]:=random(0,20);
write(mas[i], ' ');
end;
writeln(' ');
writeln('Номера элементов > 10:');
for i:=1 to 6 do begin
if mas[i] > 10 then
write(i,' ');
end;
end.