Вопрос по информатике:
Дан массив вещественных чисел. Вывести на экран новое состояние массива ,
в котором все элементы с нечётными номерами заменить на их квадратный корень.
- 17.10.2017 03:41
- Информатика
- remove_red_eye 969
- thumb_up 19
Ответы и объяснения 1
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.
- 18.10.2017 09:15
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.