Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
=А1+С6
var
s,a,n,i,min,max: integer;
begin
min: =32767;
max: =-32768;
readln(n);
for i: =1 to n do
readln(a);
if a< min then min: =a;
if a> max then max: =a;
end;
s: =(min+max)/2;
writeln(s);
end.
const
n=10;
a: array[1..n] of integer;
i,x,k,j,s: integer;
randomize:
for i: =1 to n do a[i]: =random(255); {формируем случайный массив}
for i: =1 to n do write(a[i],' '); {выводим этот массив его на экран}
writeln('x='); read(x); {вводим x, в программе}
for i: =1 to n do if x=a[i] {если х=a[i] тогда}
then for j: =i to n do {начинаем новый цикл с i до n}
s: =s+a[j]; {вычисляем сумму}
Популярные вопросы