Помогите составить программу которая формирует массив из 12 случайных чисел от 0 до 40 и выводит на экран четные элементы массива
Ответы
Ответ дал:
0
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.
С тебя лучший ответ)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад