Информатика, опубликовано 2018-08-22 19:45:22 by Гость
Заменить все элементы с четными номерами на из квадраты
Ответ оставил Гость
Var a: array [0..9] of integer;
i: integer;
begin
for i := 0 to 9 do
a[i] := random(50) + 1;
for i := 0 to 9 do
if (a[i] mod 2 = 0) then a[i] := sqr(a[i]);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.