Дан массив вещественных чисел. Вывести на экран новое состояние массива , в котором все элементы с нечётными номерами заменить на их квадратный корень.
Дан массив вещественных чисел. Вывести на экран новое состояние массива ,
в котором все элементы с нечётными номерами заменить на их квадратный корень.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;
end.
Не нашли ответ?
Похожие вопросы