Создайте массив из пять фамилий. и выведите их на экран столбиком, начиная с последнего

Question

Информатика

Всеслава

16 декабря, 13:56

Создайте массив из пять фамилий. и выведите их на экран столбиком, начиная с последнего

+1

Ответы (1)

Знаете ответ?

Лекса · Answer 1

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.