. Дан массив целых чисел. Определить количество четных элементов и коли- чество...

Question

. Дан массив целых чисел. Определить количество четных элементов и коли-
чество элементов, оканчивающихся на цифру 5.
Помогите,пожалуйста,паскаль-одномерный массив

Answer 1

Const
   N = 33;
Var
   A:array[1..N] of integer;
   i,c,p:integer;
Begin
c:=0;
p:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    if A[i] mod 2 = 0 then c:=c+1;
    if (A[i] mod 5 = 0)and(A[i] mod 10 <> 0) then p:=p+1
    End;
WriteLn;
WriteLn('Количество чётных чисел: ',c);
WriteLn('Количество чисел, оканчивающихся на 5: ',p);
End.

Comments

Скажи, пожалуйста,как ещё можно написать,без randoma?

---

Randomize; - эту строку просто убрать

A[i]:=random(2*N+1)-N;
Write(' ',A[i]);
а эти две заменить на
Read(A[i]); - тогда массив будет заполняться с клавы

---

Спасибо.)