?>
Решите задачу табличным Таблицы с рассуждениями показать обязательно) 1. Пятеро одноклассников: Ирена, Тимур, Камилла, Эльдар и Залим стали победителями олимпиад школьников по физике, математике, информатике, литературе и географии. Известно, что: • победитель олимпиады по информатике учит Ирену и Тимура работе на компьютере; • Камилла и Эльдар тоже заинтересовались информатикой; • Тимур всегда побаивался физики; • Камилла, Тимур и победитель олимпиады по литературе занимаются плаванием; • Тимур и Камилла поздравили победителя олимпиады по математике;
Ответы
i,x:integer;
m:array[10..20] of integer;
begin
randomize;
for i:=10 to 20 do m[i]:=random(11)+10;
for i:=10 to 20 do write(m[i],' ');
writeln;
x:=m[10];
m[10]:=m[20];
m[20]:=x;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.
2)
var
max,min,i,x:integer;
m:array[10..20] of integer;
begin
min:=10;
max:=10;
randomize;
for i:=10 to 20 do m[i]:=random(100)+1;
for i:=10 to 20 do write(m[i],' ');
writeln;
for i:=10 to 20 do begin if m[i]<m[min] then min:=i;
if m[i]>m[max] then max:=i;
end;
x:=m[min];
m[min]:=m[max];
m[max]:=x;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.