Все элементы с нечетными номерами заменить на их квадратный корень
Отметить нарушение РРПП 01.04.2013
ответы и объяснения
Проверенный ответ
Tlalok
Tlalok Почетный грамотей
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.
ОвчинниковаТатьяна
19.05.2022
Техника безопасности при работе с компьютером очень важна, особенно если речь идет о школьных занятиях. Ведь современную образовательную систему трудно представить без компьютерных технологий. Кроме того, данная информация будет полезна и родителям. Техника безопасности при работе с компьютером Для начала стоит отметить важность защиты здоровья ребенка во время работы с электронной и вычислительной техникой. Кроме того, требования к образовательным учреждениям предусматривают и информационную безопасность ученика во время выхода в интернет.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дано предложение. Удалить из него все буквы "с". решить на dev cpp
Школьные Знания.com
Какой у тебя вопрос?
10 - 11 классыИнформатика 8+4 б
Дан массив вещественных чисел:
Все элементы с нечетными номерами заменить на их квадратный корень
Отметить нарушение РРПП 01.04.2013
ответы и объяснения
Проверенный ответ
Tlalok
Tlalok Почетный грамотей
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.