Arirn
6 год назад
Пожалуйста посчитайте составить программу которая формирует массив из 12 случайных чисел от 0 до 40 и выводит на экран четные элементы массива
ОТВЕТЫ
Jari Aku
Oct 24, 2020
program massiv;
var a,n,i,kol:integer;m:array[1..40] of integer;
beginwriteln('Массив из случайных 12 чисел:');for i:=1 to 12 do beginm[i]:=random(40)+2;write(m[i]:4);if m[i] mod 2 = 0 then kol:=kol+1;end;writeln;writeln('Количество четных чисел');write(kol);end.
С тебя лучший )
var a,n,i,kol:integer;m:array[1..40] of integer;
beginwriteln('Массив из случайных 12 чисел:');for i:=1 to 12 do beginm[i]:=random(40)+2;write(m[i]:4);if m[i] mod 2 = 0 then kol:=kol+1;end;writeln;writeln('Количество четных чисел');write(kol);end.
С тебя лучший )
440
Смежные вопросы:
