Как составить программу, в которой нужно сначала ввести число, а по нему ввести количество данных ? например: вводим: 5 6 7 8 4 3 2 4 5 (строки 6 7 8 4 3 и 4 5 тоже числа, которые нужно вводить)
Var a,b,c:integer; begin c:=0; writeln('введите количество чисел'); readln(a); writeln('введите числа '); while (c<>a) do begin read(b); c:=c+1; end; end.
begin
c:=0;
writeln('введите количество чисел');
readln(a);
writeln('введите числа ');
while (c<>a) do begin
read(b);
c:=c+1;
end;
end.