Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы