Var a:array[1..100,1..100] of integer; N,M,i,j,min,kmin:integer; begin readln(N,M); min:=10000; kmin:=0; for i:=1 to N do begin writeln(); for j:=1 to M do begin a[i,j]:=random(50); write(a[i,j],' '); if min = a[i,j] then kmin:=kmin+1 else if min > a[i,j] then begin kmin:=1; min:=a[i,j]; end; end; end; writeln(); write(min,' ',kmin); readln(); end.
1 задание) ответ: 1323141; Двигаемся в обратном порядке 2324142 (идём с конца) ей противоположные 1323141 2 задание) ответ: 2949; мы должны получить 11 и 13 причем минимально . можем только так 9+2 и 9+4 . значит 2949 3 задание) ответ: 3; чтобы добраться до 21 нам нужно выполнить 1 команду 6 раз и 3 раза вторую , нас спрашивают про вторую пишем ответ 3 4 задание) ответ: 1; нам нужно число которое делится на 5 то есть 4 отпадает , и также нам нужно чтобы модуль разности был не более 2 и во втором и в третьем модуль разности больше 2 , остается 1. 5 задание) ответ: 1112221; Я всегда начинаю с обратного 57-56-28-14-7-6-5-4 собираем с конца 1112221
N,M,i,j,min,kmin:integer;
begin
readln(N,M);
min:=10000;
kmin:=0;
for i:=1 to N do begin
writeln();
for j:=1 to M do begin
a[i,j]:=random(50);
write(a[i,j],' ');
if min = a[i,j] then
kmin:=kmin+1
else if min > a[i,j] then begin
kmin:=1; min:=a[i,j];
end;
end;
end;
writeln();
write(min,' ',kmin);
readln();
end.
Двигаемся в обратном порядке 2324142 (идём с конца) ей противоположные 1323141
2 задание) ответ: 2949;
мы должны получить 11 и 13 причем минимально . можем только так 9+2 и 9+4 . значит 2949
3 задание) ответ: 3;
чтобы добраться до 21 нам нужно выполнить 1 команду 6 раз и 3 раза вторую , нас спрашивают про вторую пишем ответ 3
4 задание) ответ: 1;
нам нужно число которое делится на 5 то есть 4 отпадает , и также нам нужно чтобы модуль разности был не более 2 и во втором и в третьем модуль разности больше 2 , остается 1.
5 задание) ответ: 1112221;
Я всегда начинаю с обратного
57-56-28-14-7-6-5-4 собираем с конца 1112221