- СРОЧНО-

- ОЧЕНЬ БЛАГОДАРНА БУДУ____))))

Разработать схему алгоритма, который запрашивает  N произведений целых чисел и ищет их сумму , число N вводится ч клавиатуры. (где) S-cумма ; K- первое число; M-последнее число; i-счетчик 

Program task1;var n, S, k, i: integer;beginwrite('Кол-во чисел = ');readln(n);S := 0;For i := 1 to n dobeginwrite('Введите число ');readln(k);S := S + kend;writeln('Сумма введенных произвольных чисел = ', s);end.

Блок-схема во вложении.

Програмка:

Program YRR;var n, i: integer;  temp, k, m, sum: real;begin  writeln('*** alphaues is thinking... ***');  write('Введите количество чисел = ');  readln(n);  Sum:=0;  For i:=1 to n do  begin    write('Введите ',i,'-e число ');    readln(temp);    if i=1 then k:=temp;    if i=n then m:=temp;    Sum:=Sum+temp;  end;  writeln('Сумма введенных чисел = ',sum);  writeln('Первое число К = ',k);  writeln('Последнее число М = ',m);end.