Предмет: Информатика,
автор: giyego4501
В массиве из 10 положительных и отрицательных элементов все четные положительные числа заменить «2», а остальные оставить без изменения. Напечатать на экране начальный массив A и конечный массив B.
sokolp2017:
Pascal?
Ответы
Автор ответа:
0
Ответ:
var
arr:array[1..1000] of integer;
i,N:integer;
begin
write('Укажите размер массива - ');
read(N);
writeln;
for i:=1 to N do
begin
arr[i]:=-50+random(101);
write(arr[i],' ');
end;
writeln;
writeln;
for i:=1 to N do
begin
if arr[i] mod 2=0 then arr[i]:=2;
write(arr[i],' ');
end;
end.
Объяснение:
Похожие вопросы
Предмет: Алгебра,
автор: Maria098
Предмет: Математика,
автор: диманелюблюуроки
Предмет: Английский язык,
автор: Ольчикссс
Предмет: Математика,
автор: Ава33333