Такая задача.

Найти количество положительных чисел в исходном наборе.

Решается через обыный Pascal ABC.

Напишите решение(программой).

2

Ответы и объяснения

  • Sky09
  • профессор
2013-10-02T22:48:45+04:00
Uses crt;
var a:array [1..30] of integer;
  i,k:integer;
begin
write('Введи количество чисел набора: ');
readln(i);
  writeln('Набор чисел: ');
for i:=1 to i do
begin
  a[i]:=random(99)-50;
  write(a[i],' ');
  if a[i]>0 then k:=k+1;
end;
writeln; writeln('Среди них ',k,' положительных.');
end.
2013-10-02T22:48:58+04:00
Program kolvo;
type massiv=array[-100000..100000] of longint;
var b,i,k:integer;
begin
readln(a,b);
for i:=a to b do begin
readln(a[i]);
if a[i]>0 then k:=k+1;
end;
writeln('Kol-vo=',k);
end.