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

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.<br>2)program m_1;var a:array[1..10] of integer;j:integer;beginfor j:=1 to 10 do  readln(a[j]);end.

Comments

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

---

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

---

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