Дан массив вещественных чисел:
Все элементы с нечетными номерами заменить на их квадратный корень
var
a:array[1..100] of real;
i, n:integer;
begin
write(Введите количество элементов ); readln(n);
for i := 1 to n do
begin
write(a[, i ,] = );
readln(a[i]);
end;
writeln;
writeln(Исходный массив:);
for i := 1 to n do
begin
write(a[i], );
if i mod 2 = 1 then
a[i] := sqrt(a[i]);
end;
writeln;
writeln;
writeln(Преобразованный массив:);
for i := 1 to n do
write(a[i]:0:2, );
writeln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
