Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
const
n=10;
var
a: array[1..n] of integer;
i,x,k,j,s: integer;
begin
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]; {вычисляем сумму}
writeln(s);
end;
s,n,i: integer;
write('введите количество чисел');
readln(n);
s: =0;
for i: =1 to n do
s: =s+i*3;
end.
1)никакие люди не повторят подвиг матросова!
2)все великие,учёные люди подвергались критике и злобе,но это делало их сильнее.
3)не все люди могут победить в себе страх и сдержать боль перед смертью как это сделал извейстнейший казак разин
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
if a> b then max: = a
else max: =b;
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
writeln(x1);
Популярные вопросы