Question

Тема: структурный данный.массивы.(паскаль) месяц 1 2 3 4 5 6 7 8 9 10 11 12 темпреатура -31 -18 -7.5 5.8 10 18 22.2 24 17 5.4 -7 -11 1)вычислите средние температуры зимних месяцев,весенних месяцев,летних месяцев и осенних месяцев. 2)разработать
схему алгоритма и программу,которая вводит массив из n целых чисел и выводит номера отрицательных элементов и сами эти элементы.

Answer 1

Program temperature;
Uses crt;
Var
x : array [1..2,1..12] of real;
t,m,i : integer;
z,v,l,o : real;
Begin
z:=0;v:=0;l:=0;o:=0;
for i:=1 to 12 do
x[1,i]:=i;
x[2,1]:=-11;x[2,2]:=-31;x[2,3]:=-18;x[2,4]:=-7.5;x[2,5]:=5.8;x[2,6]:=10;x[2,7]:=18;
x[2,8]:=22.2;x[2,9]:=24;x[2,10]:=17;x[2,11]:=5.4;x[2,12]:=-7;
for i:=1 to 3 do
z:=z+x[2,i];
for i:=4 to 6 do
v:=v+x[2,i];
for i:=7 to 9 do
l:=l+x[2,i];
for i:=10 to 12 do
o:=o+x[2,i];
z:=z/3;v:=v/3;l:=l/3;o:=o/3;
writeln('Средняя температура зимних месяцев = ',z:3:1);
writeln('Средняя температура весенних месяцев = ',v:3:1);
writeln('Средняя температура летних месяцев = ',l:3:1);
writeln('Средняя температура осенних месяцев = ',o:3:1);
End.

Program num2;
Uses crt;
Var
x :array[1..100] of integer;
i, n : integer;
Begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
write('x[',i,']=');readln(x[i])
end;
for i:=1 to n do
if x[i]<0 then writeln('x[',i,']<0 and x[',i,']=',x[i]);
End.