Найти сумму отрицательных, количество положительных и произведение ненулевых элементов одномерного массива

@Dmitriy367 · Регистрация: 23.11.2016

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

Помогите пожалуйста решить задачу на одномерный массив.
Одномерный массив Х(15) считать из файла*txt(файл создать самим).
Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.
Заранее спасибо.

@callofduty431 · 25.11.2016, 00:07

Если не ошибаюсь, то вот так

Pascal

uses crt;
var
  f:text;
  a:array[1..15] of integer;
  s,c:integer;
  i:byte;
  p:real;
begin
assign(f,'x15.txt');
reset(f);
  s:=0;c:=0;p:=1;
  for i:=1 to 15 do
   begin
    read(f, a[i]);
    if a[i]<0 then s:=s+a[i];
    if a[i]>0 then c:=c+1;
    if a[i]<>0 then p:=p*a[i];
   end;
close(f); 
  writeln('Сумма:',s);
  writeln('Количество:',c);
  writeln('Произведение:',p:20:0);
  readln;
end.

@Dmitriy367 0 / 0 / 0 Регистрация: 23.11.2016 Сообщений: 2
		1
	Найти сумму отрицательных, количество положительных и произведение ненулевых элементов одномерного массива 23.11.2016, 22:07. Показов 2186. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить задачу на одномерный массив. Одномерный массив Х(15) считать из файла*txt(файл создать самим). Найти сумму отрицательных, количество положительных и произведение ненулевых элементов. Заранее спасибо. 0

	25.11.2016, 00:07

Опции темы

Найти сумму отрицательных, количество положительных и произведение ненулевых элементов одномерного массива

Решение