Паскаль. написать пограмму которая заполняет массив случайными числами от 1 до 10. в ряду 10 чисел. вот программа:

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

i:integer;

begin randomize;

for i: = 1 to 10 do

begin

a[i]:=random (11);

write (a[i]:4);

end;

end.

Задание: дописать эту программу, чтобы она выдавала кол-во четных и нечетных примеров массива.

Question

Информатика

Эмка

20 марта, 01:36

Паскаль. написать пограмму которая заполняет массив случайными числами от 1 до 10. в ряду 10 чисел. вот программа:

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

i:integer;

begin randomize;

for i: = 1 to 10 do

begin

a[i]:=random (11);

write (a[i]:4);

end;

end.

Задание: дописать эту программу, чтобы она выдавала кол-во четных и нечетных примеров массива.

+1

Ответы (1)

Знаешь ответ?

Жеша · Answer 1

Uses crt;

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

i, s, k:integer;

begin

clrscr;

randomize;

for i: = 1 to 10 do

begin

a[i]:=random (11);

write (a[i]:8);

if a[i] mod 2 = 0 then s:=s+1 else k:=k+1;

end;

writeln ('Кол-во четных = ', s);

writeln ('Кол-во нечетных = ', k);

end.