Question

Напишите программы. Челики выручайте.

Answer 1

1)program m_1;var a:array[1..10] of integer;j:integer;beginj:=1;while j<=10 do beginreadln(a[j]);j:=j+1;end;end.
2)program m_1;var a:array[1..10] of integer;j:integer;beginfor j:=1 to 10 do  readln(a[j]);end.

Answer 2

program m_1;
var a:array[1..10] of integer;
j:integer;
begin
for j:=1 to 10 do
readln(a[j]);
end.

Answer 3

program m_1;
var a:array[1..10] of integer;
j:integer;
begin
j:=1;
while j<=10 do
begin
readln(a[j]);
j:=j+1;
end;
end.

Answer 4

челик, ты топ. спасибо тебе)