Ввести массив H [1 ... 5] и число А. Для каждого элемента массиа вычислить Z = корень из Ht/A. Исходный массив и результат распечатать.

Program zadacha;

uses crt;

var a, i: integer;

z: real;

h: array [1 ... 5] of integer;

begin

clrscr;

write ('vvedite chislo A: ') ;

readln (a) ;

for i:=1 to 5 do begin

write ('vvedite elemeny massiva H: ') ;

readln (h[i]) ;

z:=sqrt (h[i]/a) ;

writeln ('H[i]=', h[i], ' Z=', z:0:4) ;

end;

readkey;

end.

или

program zadacha;

uses crt;

var a, i: integer;

z: real;

h: array [1 ... 5] of integer;

begin

clrscr;

write ('vvedite chislo A: ') ;

readln (a) ;

for i:=1 to 5 do begin

write ('vvedite elemeny massiva H: ') ;

readln (h[i]) ;

end;

for i:=1 to 5 do begin

z:=sqrt (h[i]/a) ;

writeln ('H[', i, ']=', h[i], ' Z=', z:0:4) ;

end;

readkey;

end.