матрица заполняется случайно
программа на pascalabc
Var
max,min,mina,minb,maxa,maxb,a,b,c: integer;
mas: array[1..3,1..3] Of integer;
Begin
writeln('до :');
For a:=1 To 3 Do
For b:=1 To 3 Do
Begin
mas[a,b] := random(100);
If mas[a,b]>max Then
Begin
max := mas[a,b];
maxa := a;
maxb := b;
End;
If (min=0)Or(mas[a,b]<min) Then
Begin
min := mas[a,b];
mina := a;
minb := b;
End;
write(mas[a,b],' ');
End;
c := mas[maxa,maxb];
mas[maxa,maxb] := mas[mina,minb];
mas[mina,minb] := c;
writeln;
writeln('после :');
For a:=1 To 3 Do
For b:=1 To 3 Do
write(mas[a,b],' ');
Решение смотри во вложении.
Далее Я пишу причину и следствие.
Зима: людям нужно согреться - чай покупают чаще. Пирожные - с чаем обычно едят десерт, с чипсами то же самое, соответственно покупают чаще. Сок - не популярен, потому-что сок помогает освежится - альтернатива воде, зимой человек потеет меньше - меньше хочет пить.
Весна: Уже тепло - чай не особо нужен, активность людей поднимается - сок покупают чаще, Пирожные и чипсы - чай покупают меньше - сладкое покупают реже, Мороженое - все еще прохладно - охлаждать за счет мороженого не нужно.
Лето - Сок покупают чуть реже, потому-что в продаже появился лимонад, Пирожные и Чипсы - покупают чаще, потому-что активность выросла - нужна еда для восполнения энергии, Мороженое-Жара - нужно охлаждаться.
Осень: Чай - снова покупают, потому что стало холодней, Сок и Лимонад - активность снизилась, но все еще присутствует, Пирожные и Чипсы - нужны для восполнения оставшейся активности + к чаю, Мороженое - еще ~тепло и активность - нужно охлаждаться, но уже меньше, чем летом.
А ты не знаешь ответы по олмпиаде (географии)?
var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.