В массиве A из 25 целых элементов из диапазона [-10; 7] вычислить сумму элементов, которые находятся после максимального.
В массиве A из 25 целых элементов из диапазона [-10; 7] вычислить сумму элементов, которые находятся после максимального.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var a:array [1..25] of integer; i,t,j,max,s:integer;
begin
max:=-10; s:=0; t:=0; j:=0;
for i:=1 to 25 do begin
a[i]:=random(18)-10;
if a[i]> max then begin
max:=a[i];
j:=i;
end;
end;
for i:=1 to 25 do begin
t:=t+1;
write(' a[',i:2,']=',a[i]:2);
if t=5 then begin
writeln;
t:=0;
end;
end;
j:=j+1;
for i:=j to 25 do
s:=s+a[i];
write(s);
end.
Не нашли ответ?
Похожие вопросы