Составить программу, содержащую функцию для нахождения количества положительных элементов одномерного массива

@mishatravkin · Регистрация: 26.10.2014

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

@newyork7776 · 26.10.2014, 21:03

Delphi

const n = 10;
var mas:array [1..n] of integer;
    i:byte;
function count_positive_element:integer;
var count:byte;
begin
  count:=0;
  for I := 1 to n do
    begin
      if (mas[i]>0) then inc(count);
    end;
  count_positive_element:=count;
end;
begin
  for i := 1 to n do
    begin
        Write('Enter digits ',i,'= ');readln(mas[i]);
    end;
  Writeln('Count = ',count_positive_element);
  readln;
end.

@mishatravkin 0 / 0 / 0 Регистрация: 26.10.2014 Сообщений: 11
		1
	Составить программу, содержащую функцию для нахождения количества положительных элементов одномерного массива 26.10.2014, 19:26. Показов 1640. Ответов 1 Метки нет (Все метки) составить программу, содержащую функцию для нахождения количества положительных элементов одномерного массива. 0

Опции темы

Составить программу, содержащую функцию для нахождения количества положительных элементов одномерного массива

Решение