Создайте массив из пять фамилий. и выведите их на экран столбиком , начиная с последнего
Создайте массив из пять фамилий. и выведите их на экран столбиком , начиная с последнего
Гость
Ответ(ы) на вопрос:
ГостьProgram qq;
Var a:array [1..5] of real;
I:integer;
Begin
Writeln('vvodi dannie');
For i:=1 to 5 do readln(a[i]);
Writeln;
For i:=1 to 5 do writeln(a[i]);
End.
Не нашли ответ?
Похожие вопросы