В одном доме живут Минченко, Павлов, Журавлёв и Горячко. Один из них — математик, другой — художник, третий — писатель, а четвёртый — баянист.
Известно, что:
Ни Минченко, ни Журавлёв, ни Горячко не умеют играть на баяне;
Журавлёв и Горячко не увлекаются точными науками;
Писатель и баянист в воскресенье уезжают на дачу к Журавлёву;
Художник собирается нарисовать портрет Минченко и Горячко.
var
a:array[1..10000000] of integer;
sk:real;
i,n:integer;
begin
Write('Размер массива - ');
readln(n);
Write('Заполните массив - ');
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]+5,' ');
end;
writeln();
for i:=1 to n do
sk:=sk+sqrt(a[i]);
write('Сумма квадратов ',sk);
end.
2 задание
var
a:array[1..12] of real;
max,min:real;
i:integer;
begin
write('Введите сред. t за каждый месяц - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
max:=a[1];
for i:=1 to 12 do
begin
if a[i]>max then max:=a[i];
end;
min:=a[1];
for i:=1 to 12 do begin
if a[i]<min then min:=a[i];
end;
writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.');
end.
3 задание
var
a:array[1..12] of real;
sum:real;
i:integer;
begin
write('Введите учеников - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
for i:=1 to 12 do
begin
sum:=sum+a[i];
end;
sum:=sum/12;
writeln('Средний уровень успеваемости - ',sum);
end.