Разработать схему алгоритма, который запрашивает n произведений целых чисел и ищет их сумму , число n вводится ч клавиатуры. (где) s-cумма ; k- первое число; m-последнее число; i-счетчик
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.
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.
Блок-схема во вложении.
Програмка:
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.
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.