Подсчитать отдельно число четных и нечетных элементов массива

@NickPaskalNoob · Регистрация: 08.10.2012

Студворк — интернет-сервис помощи студентам

Заполнить массив случайными числами в интервале [20;100] и подсчитать отдельно число четных и нечетных элементов.
Требуется, полное тело задачи, спс за ранее.

Bringoff · 19.11.2012, 16:47

Pascal

program Mas;
 var i,ind1,ind2:integer;
 ar:array [1..10] of integer;
 
 begin
 Randomize;
   for i:=1 to 10 do
    ar[i]:=random(80)+21;
 
    for i:=1 to 10 do
     begin
       if ar[i] mod 2=0 then
        ind2:=ind2+1
         else ind1:=ind1+1;
     end;
 
    Writeln('Nechet=',ind1);
    Writeln('Chet=',ind2);
 end.

@NickPaskalNoob 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 13
		1
	Подсчитать отдельно число четных и нечетных элементов массива 19.11.2012, 15:01. Показов 21490. Ответов 1 Метки нет (Все метки) Заполнить массив случайными числами в интервале [20;100] и подсчитать отдельно число четных и нечетных элементов. Требуется, полное тело задачи, спс за ранее. 0

Опции темы

Подсчитать отдельно число четных и нечетных элементов массива

Решение