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.
Музыкант дружил с Андреевым, сейчас дружит с Ивановым [3], значит, он не Андреев и не Иванов. Кроме того, Андреев никогда не был знаком с Петровым [4], но был дружен с музыкантом, значит, Петров - тоже не музыкант. Поэтому музыкант Сидоров.
Иванов и Андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность - солист хора - Петров.
Петров незнаком с Андреевым [4], но позировал художнику [2], поэтому знаком с ним. Значит, Андреев - не художник, Андреев - танцор.
Для Иванова остался последний вариант, Иванов - художник.
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.
Иванов и Андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность - солист хора - Петров.
Петров незнаком с Андреевым [4], но позировал художнику [2], поэтому знаком с ним. Значит, Андреев - не художник, Андреев - танцор.
Для Иванова остался последний вариант, Иванов - художник.