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

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


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.


Похожие ответы
  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.

  1. Добрый вечер. Помогите пожалуйста с задачей Вычислить (2*5! + 3*8!)/(6! + 4!), используя процедуру без параметров. Добавлено через 8 минут P.S. Переделать данную программу. Вместо функции, сделать процедуру без параметров.

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

  1. Здравствуйте. Подскажите что не правильно делаю, и возможно ли вообще - вызвать процедуру\функцию из другого объекта\класса, в турбо паскале? Хочу сделать из одного класса\объекта два.. Но чё-т как-то не получается. Исходный код не влез, прикрепил тхт файлом. И переделанное тоже прикрепил. Вот во что пытался переделать:

  1. помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).

  1. Составить процедуру и функцию,которая по заданному номеру месяца печатает название времени года

  1. составить процедуру ,меняющую местами столбцы с номерами n1 и n2 в матрице размерностью 6*5

  1. Составить процедуру для заполнение массива из N элементов значениями в интервале от - 40 до 35.