Дан массив к (5) опишите этот массив и заполните его с клавиатуры

Question

Информатика

Вивиана

7 мая, 23:46

Дан массив к (5) опишите этот массив и заполните его с клавиатуры

+3

Ответы (1)

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

Ксенофонт · Answer 1

Uses crt;

var

i: integer;

k: array [1 ... 5] of real;

begin

clrscr;

writeln ('Input array:') ;

for i:=1 to 5 do

begin

write (i,') ') ;

readln (k[i]) ;

end;

writeln ('Your array:') ;

for i:=1 to 5 do

write (k[i],' ') ;

readln () ;

end.