С какими списками? Я не знаю по какому учебнику вы учитесь)
Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. О
andreifly [79]
Uses crt;
const
a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
i,n,sum:integer;
begin
for i:=1 to 10 do write(a[i]:3);
writeln;
for i:=1 to 10 do
if a[i]>50 then
begin
sum:=sum+a[i];
n:=n+1;
end;
sr:=sum/n;
writeln('Среднее значение горячих участков: ',sr);
end.<span>
</span>
<span>Те́кстовый файл — компьютерный файл, содержащий текстовые данные. Текстовым файлам противопоставляются двоичные файлы, в которых содержатся данные, не рассчитанные на интерпретацию в качестве текстовых.</span>
1.
var x,y:real;
begin
write('x = '); readln(x);
if x>=5
then begin y:=x*x+5; writeln('y = ',y); end
else if x<2 then begin y:=0; writeln('y = ',y); end
else writeln('Функция не определена');
end.
Пример:
x = 6
y = 41
2.
var x,y:real;
begin
write('x = '); readln(x);
if x<2
then begin y:=3/(x*x*x)-2/(x*x); writeln('y = ',y); end
else if x<=5 then begin y:=3*x*x-2*x*x; writeln('y = ',y); end
else writeln('Функция не определена');
end.
Пример:
x = 3
y = 9