Вводится одномерный массив размерностью 100 для обработки данной программой. Что делает программа? Program pr;
Var х: array [1..100] of integer;
i, s: integer;
begin
s: =0;
for i:=l to 100 do
begin
readln (x [i]) ;
if i >0 then s:=s+x[i] ;
end;
s:=s/100
writeln (s) ;
end.
Данная программа определяет:
a) сумму значений элементов массива с четными индексами;
b) сумму значений положительных элементов;
c) количество элементов, значение которых четное число;
d) среднее арифметическое значение положительных элементов массива.

если по обем чашечкам разложить сначала по одной детали так, чтобы они уравновесились .предположим, что деталь весит больше чем три остальные. на чашечки положить еще по одной детали, и одна чашечка перевесит другую.та верхняя деталь, что была на чашечке которую перевесили и есть необходимая. если же деталь весит больше чем все остальные, то все сделать наоборот.

буфер обмена,перетаскивание,сохранение в файл

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;