Паскаль. написать пограмму которая заполняет массив случайными числами от 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

Информатика

Каллиникия

2 мая, 10:48

Паскаль. написать пограмму которая заполняет массив случайными числами от 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.