Составить программу ввода с клавиатуры N целых чисел
Program P1;
const n=5;
var x,i:integer;
begin
for i:=1 to n do
readln(x);
end.

127

459

Посмотреть ответы 1

Ответы на вопрос:

galinamosyagina

Информатика

4,5(41 оценок)

Const n = 13; var a: array[1..n] of integer; i: integer; begin randomize; for i: = 1 to n do begin a[i]: =random(21)-10; write(a[i],' ') end; writeln; i: =1; while i < = n do begin write(a[i],' '); i: =i+2; end; writeln; i: =2; while i < = n do begin write(a[i],' '); i: =i+2; end; end.