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

@Secret_Volga · Регистрация: 10.10.2016

Студворк — интернет-сервис помощи студентам

Написать программу, которая создает массив из P чисел и с помощью ФУНКЦИИ!!!! подсчитывает кол-во положительных и отрицательных элементов. Пожалуйста сделайте эту задачу через ФУНКЦИЮ... Заранее спасибо!

@Joy · 02.12.2016, 11:15

Pascal

function EnterArray(s:string:='';p:integer:=0):array of real;
var
  i:integer;
begin
  write(s);
  SetLength(Result,p);
  for i:=0 to p-1 do read(Result[i]);
end;
 
var a:array of real;
    cp,cm:integer;
    p:integer;
begin
  write('p=');readln(p);
  a:=EnterArray('Введите элементы массива через пробел:',p);
  for p:=0 to p-1 do
    if a[p]<0 then inc(cm) else inc(cp);
  writeln('кол-во положительных:',cp);
  writeln('кол-во отрицательных:',cm);
end.

@Secret_Volga 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 187
		1
	Создать массив из P чисел с помощью функции и найти количество положительных и отрицательных элементов 01.12.2016, 21:29. Показов 1225. Ответов 1 Метки нет (Все метки) Написать программу, которая создает массив из P чисел и с помощью ФУНКЦИИ!!!! подсчитывает кол-во положительных и отрицательных элементов. Пожалуйста сделайте эту задачу через ФУНКЦИЮ... Заранее спасибо! 0

	02.12.2016, 11:15

Опции темы

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

Решение