, перевести программу на Кумир, буду очень благодарна)) 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.

Danil185071    3   04.03.2021 18:23    0