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

Question

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

Answer 1

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.