Question

Программу на паскале срочно

Answer 1

Объяснение:

program zadan;

const n=10;

var a:array [1..10] of integer;

   i:integer;

begin

 for i:=1 to n do

 readln(a[i]);

end.