В последовательности чисел вычислить сумму первых четырех положительных чисел

@fulsur · Регистрация: 06.01.2016

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

В последовательности чисел p1,p2, ..., p20 вычислить сумму первых четырех положительных чисел.
Подскажите алгоритм решения и описания в виде блок-схемы.

@Joy · 06.01.2016, 20:47

Pascal

const n=20;
      t=4;
var
  p:array[1..n] of real;
  s:real;
  i,j:integer;
begin
  randomize;
  writeln('последовательность:');
  for i:=1 to n do begin
    p[i]:=10*random-5;
    writeln('p',i:2,'=',p[i]:0:4);
    if (p[i]>0) and (j<t) then begin
      j:=j+1;
      s:=s+p[i];
    end;
  end;
  if j=0 then writeln('Нет положительных чисел в последовательности') else
    writeln('Сумма первых ',j,' из ',t,' положительных членов равна:',s:0:4);
  readln;
end.

@fulsur 0 / 0 / 0 Регистрация: 06.01.2016 Сообщений: 1
		1
	В последовательности чисел вычислить сумму первых четырех положительных чисел 06.01.2016, 20:09. Показов 1787. Ответов 1 Метки нет (Все метки) В последовательности чисел p1,p2, ..., p20 вычислить сумму первых четырех положительных чисел. Подскажите алгоритм решения и описания в виде блок-схемы. 0

	06.01.2016, 20:47

В последовательности чисел вычислить сумму первых четырех положительных чисел

Решение