Question

Дан массив из 6 элементов целых чисел
Ввод – датчик случайных чисел Вывод в одну строку
Замените все четные элементы числом 5

Answer 1

Ответ:

program z1;

var a:array[1..6]of integer;

i:integer;

begin

write('Массив: ');  

for i:= 1 to 6 do  

begin

a[i]:= random(10);

write(a[i]:3)

end;

writeln;

write('Массив: ');  

for i:= 1 to 6 do

begin

if a[i] mod 2 = 0 then a[i]:=5;

write(a[i]:3)

end

end.

Объяснение:

Чётный элемент - это элемент значение которого чётное число.

Если чётный элемент - это элемент индекс которого чётное число, то строку

if a[i] mod 2 = 0 then a[i]:=5;

заменить на

if i mod 2 = 0 then a[i]:=5;