Ребята,нужно в паскале решить задачи ** массив. 1) в массиве 50 элементов. Определить...

Question

Ребята,нужно в паскале решить задачи на массив.
1) в массиве 50 элементов. Определить количество чисел больше,равны и меньше нуля.
2) в массиве 20 элементов. Опеределить количество чисел,у которых:
Цифра десятков кратна 2(или просто само число кратно 2) и число больше нуля.
Решение по типу этой задачи. Числа вводятся по запуску программы.

---

Comments

Массив вручную задается или рандомом?

---

Вручную

---

я уже решение выложил

Answer 1

Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);<br>if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
end.

Comments

вторая:
var a:array[1..20] of integer;
i,k:integer;
begin
for i:=1 to 20 do begin
readln(a[i]);
if (((a[i] div 10)mod 2=0) and (a[i]>10)) or ((a[i] mod 2=0) and (a[i]>0)) then inc(k);
end;
writeln(k);
end.