Решите пожалуйста 2 упражнение очень срочно надо!

Решите пожалуйста 2 упражнение очень срочно надо!
Гость
Ответ(ы) на вопрос:
Гость
vara:array[1..6]of integer;i:integer;beginfor i:=1 to 6 do read(a[i]);for i:=1 to 6 do write(a[i],' ');writeln;for i:=1 to 6 do if a[i]>=1024 then writeln(a[i] div 1024);writeln;end.

Не нашли ответ?
Ответить на вопрос
Похожие вопросы