Информатика, опубликовано 2018-08-22 22:34:17 by Гость
Дан натуральный ряд от 1 до 100. изменить знак четных элементов ряда на противоположный в Паскаль пожалуста откликнитесь
Ответ оставил Гость
const N = 10;
var
a: array[1..N] of integer;
i: integer;
begin
write(До замены: );
for i := 1 to N do begin
a[i] := random(100);
write(a[i], );
end;
writeln;write(После замены: );
for i := 1 to N do begin
if(a[i] mod 2 = 0)then a[i] := a[i] * (-1);
write(a[i], );
end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.