В свободные клетки квадрата впишите числа, так чтобы по всем строкам, столбцам и диагоналям в сумме получилось одно и тоже число а) 12 б) 106 в)48 6 36 10 30 4 8 112 122 108 24
Var a:array of integer; i,n:integer; begin //Заполняем массив сл. числами и выводим //Нумерация массива с 0 write('Число элементов массива ');readln(n); setlength(a,n); for i:=0 to n-1 do begin a[i]:=random(41)-20; write(a[i]:4); end; writeln; //Вывод номеров четных элементов for i:=0 to n-1 do if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i ); end.
1) Набираем 8ми литровый кувшин 2) отливаем 3 литра в 3х литровый и сливаем из него воду 3) в 8ми литровом осталось 5л воды, сливаем снова в 3х литровый, и в 8ми литровом осталось 2 литра воды. 4) выливаем из 3х литрового воду, и переливаем в него 2 литра, оставшиеся в 8литровом кувшине. 5)Снова наполняем 8ми литровый кувшин, и доливаем из него воду в 3х литровый кувшин, так как в 3х литровом налито 2 литра - там не хватает одного литра, значит отлив из 8ми литрового литр в нем останется 7 литров :)
i,n:integer;
begin
//Заполняем массив сл. числами и выводим
//Нумерация массива с 0
write('Число элементов массива ');readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
//Вывод номеров четных элементов
for i:=0 to n-1 do
if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i );
end.
Тестовое решение:
Число элементов массива 10
-5 14 3 13 4 1 18 7 12 -14
14 номер: 1
4 номер: 4
18 номер: 6
12 номер: 8
-14 номер: 9