Предмет: Информатика,
автор: fhfhvucvgg
Помогите возвести каждый второй элемент массива в квадрат(паскаль)
Ответы
Автор ответа:
0
const n = 15;
var
a: array[1..n] of real;
i, k: integer;
begin
for i:=1 to n do readln(a[i]);
for i:= 1 to n do
begin
if i mod 2 = 0 then
a[i]:= sqr(a[i]);
writeln(a[i]);
end;
end.
Тут только четные возводятся
это и есть каждый второй элемент, Ннет?
Так я ввожу нечетные и они не возводятся
там если номер элемента четный (т. е. каждый второй элемент массива), то этот элемент заменяется его квадратом
Так если я пишу 2 числом нечетное то оно не возводится
ну да
Похожие вопросы
Предмет: Математика,
автор: adelina5859
Предмет: Английский язык,
автор: llldxppaad
Предмет: Алгебра,
автор: canekpisa
Предмет: Математика,
автор: tatsawi
Предмет: Физика,
автор: valeriyvolkov
var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
for var i := 0 to a.High do
if i.isOdd then a[i] *= a[i];
a.Println;//1 4 3 16 5 36 7 64 9 0
end.