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

Question

Информатика

Эсфирка

7 февраля, 10:51

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

+1

Ответы (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.