ИНФОРМАТИКА люди добрые решить эти логические задачи..
В1.
В школьном первенстве по настольному теннису в четверку лучших вошли девушки: Наташа, Маша, Люда и Рита. Самые горячие болельщики высказали свои предположения о распределении мест в дальнейших состязаниях. Один считает, что первой будет Наташа, а Маша будет второй. Другой болельщик на второе место прочит Люду, а Рита, по его мнению, займет четвертое место. Третий любитель тенниса с ними не согласился. Он считает, что Рита займет третье место, а Наташа будет второй. Когда соревнования закончились, оказалось, что каждый из болельщиков был прав только в одном из своих прогнозов. Какое место на чемпионате заняли Наташа, Маша, Люда, Рита? (В ответе перечислите подряд без пробелов числа, соответствующие местам девочек в указанном порядке имен.)
1) Нужно нажать левой кнопкой мыши на стрелку под кнопкой "Выделить"
2) Выбрать прямоугольную или произвольную область.
Если выбрана прямоугольная область:
1) Нажать левой кнопкой мыши в том месте, где должен быть какой-либо угол прямоугольной области;
2) Не отпуская кнопку мыши, перевести мышь в то место, где должен быть противоположный угол;
3) Отпустить кнопку мыши.
Если выбрана произвольная область:
1) Нажать левой кнопкой мыши в том месте, где должно быть какое-либо место на границе произвольной области;
2) Не отпуская кнопку мыши, провести ей по границе произвольной области и замкнуть эту границу;
3) Отпустить кнопку мыши.
3) Нажать правой кнопкой мыши по выделенной области;
4) Выбрать "Копировать";
5) Нажать на любое место, кроме выделенной области правой кнопкой мыши;
6) Выбрать "Вставить".
const max=10;
var a:array[1..max,1..max] of integer;
k1,k2:array[1..max]of byte;
n,m,i,j,s1,s2:integer;
begin
repeat
write('Количество строк до ',max,' n=');
readln(n);
until n in [1..max];
repeat
write('Количество столбцов до ',max,' m=');
readln(m);
until m in [1..max];
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-15+random(31);
write(a[i,j]:4);
end;
writeln;
end;
s1:=0;
s2:=0;
for j:=1 to m do
begin
k1[j]:=0;
k2[j]:=0;
for i:=1 to n do
if abs(a[i,j])>10 then
begin
a[i,j]:=10;
inc(s1);
inc(k1[j]);
end
else
begin
a[i,j]:=j;
inc(s2);
inc(k2[j]);
end;
end;
writeln('Измененная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
writeln(' Количество замен');
writeln(' 1 вида 2 вида');
for i:=1 to m do
writeln('Столбец ',i:2,k1[i]:5,k2[i]:5);
writeln('Всего ',s1:5,s2:5);
end.