1) program n_1;
var a:array[1..100] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(450)+250;
writeln(a[i],' ');
end;
end.
<span>а) Алгоритм
a:= 9 a=9
b:= a mod 5 b=4
b:= b*10 b=40
a:=b div 5-3 a=8-3=5 (сначала выполняем div, потом "-")
Ответ: </span>b=40<span>
</span><span>б) Алгоритм
a:= 123 а=123
b:= a div 10 b=12
b:= b/4+2 b=5
b:= b*25+2 b=127
a:= a+ b a=250
</span>Ответ: <span>b=127</span><span>
</span>
13,31,15,51,57,75,53,35,71,17,73,37.
Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. О
GlushkovAD
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>