Регистрация
sudak7
07.10.2021 02:15
Информатика
Есть ответ 👍

Pascal, как изменить код программы которая высчитывает сумму всех элементов, до последнего положительного элемента(написать нужно не через break) вот код:

var n, p,i,k:integer;

m:array of real;

s:real;

begin

write('n');

readln(n);

setlength(m,n);

for i:=0 to n-1 do

m[i]:=random(21)-10;

for i:=0 to n-1 do

write(m[i]:8:2);

writeln;

for i:=n-1 downto 0 do

if m[i]>0 then

begin

k:=i;

break;

end;

for i:=0 to k do

s:=s+m[i];

writeln('Сумма элементов до последнего положительного элемента =', s);

236
359
Посмотреть ответы 1

Ответы на вопрос:

RRRR2221111
RRRR2221111
4,6(81 оценок)

по идее работает правильно:

program basketbol;

var a: array[1..12] of integer;

i,c,g: integer;

begin

g: =0;

for i: =1 to 12 do

readln(a[i]);

for i: =1 to 12 do

if a[i] > c then c: =a[i];

writeln();

for i: =1 to 12 do

if a[i] = c then g: =g+1;

for i: =1 to g do writeln(c);

for i: =1 to 12 do begin

if a[i] < > c then writeln(a[i]);

end;

end.

Популярно: Информатика