Описать процедуру с параметром - Turbo Pascal

Формулировка задачи:

HELP Нужна программа которая будет содержать процедуру (с параметрами) - которая через один из параметров будет возвращать в программу количество положительных элементов. + алгоритм этой программы.

Код к задаче: «Описать процедуру с параметром - Turbo Pascal»

textual
program proc;
uses crt;
type vec=array[1..10] of integer;
var a:ver;
      i,k,n:byte;
procedure poisk (b:vec; var n:byte);
var i:byte;
begin
n:=0;
for i:=1 to 10 do
if b[i]>0 then n:n+1;
end;
begin
randomize;
for i:=1 to n do begin
a[i]:=-5+random(30);
write (a[i]:3);
end;
poisk (a,n);
writeln ('V massive a  ',n,' polozh. elementov');
readln;
end.

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы