Информатика, опубликовано 2018-08-22 23:37:08 by Гость

Задача в Паскале.Найти количество элементов четного массива

Ответ оставил Гость

Я понял задание и написал программу:

uses Crt;
const n=25;
type Mas=array [1..n] of integer;
var   i, Col: integer;
       A: Mas;
begin
ClrScr;
Randomize;
Col:=0;
WriteLn( Massiv A:);
for i:=1 to n do
   begin
       A[i]:=10+random (90);
       Write(A[i]:3);
       if (A[i] mod 2=0) then Col:=Col+1;
   end;
   Writeln; WriteLn;
   WriteLn( Col = , Col);
ReadLn;
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Форма вопроса доступна на полной версии этой страницы.