Составить программу,позволяющую ввести с клавиатуры данные о росте учеников в классе в массиве и вывести на экран
Составить программу,позволяющую ввести с клавиатуры данные о росте учеников в классе в массиве и вывести на экран
Гость
Ответ(ы) на вопрос:
Гостьprogram rost;
var a:array[1..30] of integer; n:integer;
begin
writeln('Введите количество учеников');
read(n);
for i:=1 to n do
read(a[i]);
write(a,'[i]');
end.
Ну как то так.
ГостьВариант через рандом - рост задается сам
var A: array of integer;
N, i: integer;
begin
write('Введите количество учеников в классе: ');
readln(N);
SetLength( A, N );
for i := 0 to N - 1 do
begin
A[ i ] := random(200) mod 1000;
writeln('Рост ', i + 1, ' ученика: ', A[ i ]);
end;
end.
Не нашли ответ?
Похожие вопросы