Question

- СРОЧНО-- ОЧЕНЬ БЛАГОДАРНА БУДУ____))))Разработать схему алгоритма, который запрашивает N произведений целых чисел и ищет их сумму , число N вводится ч клавиатуры. (где) S-cумма ; K- первое число; M-последнее число; i-счетчик

Answer 1

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

 

Програмка:

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.

Answer 2

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