Заполнить массив из 10 элементов целыми числами из интервала [-20;29],числа вводятся с клавиатуры.
Код Pascal.
const n = 10;
var
a: array[1..n] of integer;
i, c: integer;
begin
i := 0;
while 1 = 1 do begin
if i = 10 then break;
readln(c);
if (c <= 29) and (c >= -20) then begin
inc(i);
a[i] := c;
end else writeln(Число выходит за границы);
end;
writeln(Готово);
readln;
end.
Вродь как-то так
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
