Клавиатура, сканер, мышь!
кнопка Shift (получше надо знать комп и программы))
В текстовом редакторе World я знаю десять таблиц.
Ответ:
Программа на паскале:
const
MAX_N = 20001;
var
a: array[1 ... MAX_N] of integer;
n, i, j, p, maxp: integer;
begin
i : = 1;
read (a[i]) ;
while a[i] 0 do
begin
inc (i) ;
read (a[i]) ;
end;
n : = i - 1;
maxp : = 0;
for i : = 1 to n do
for j : = 1 to n do
begin
p : = a[i] * a[j];
if (p mod 26 = 0) and (p > maxp) then
maxp : = p;
end;
if maxp = 0 then writeln ('Not found')
else writeln (maxp) ;
Объяснение:
Var
J: Array[1..32,1..32] Of Integer;
i, j, S: Integer;
Begin
//заводим массив
For i:=1 to 32 do
For j:=1 to 32 do
begin
Writeln("Введите J[",i,",",j,"]");
Readln(J[i,j]);
End;
//Сумма всех чисел
S:=0;
For i:=1 to 32 do
For j:=1 to 32 do
S:=S +J[i,j];
Writeln("Сумма всех чисел = ",S);
S = 0;
//Минимальное четное число
For i:=1 to 32 do
For j:=1 to 32 do
If (J[i,j] mod 2 = 0) And (J[i,j]<S) Then S:= J[i,j];
Writeln("Минимальное четное число = ",S);
S:=0;
//кол-во отрицательных нечетных чисел
For i:=1 to 32 do
For j:=1 to 32 do
If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+1;
Writeln("кол-во отрицательных нечетных чисел = ",S);
S:=0;
//сумма отрицательных нечетных чисел
For i:=1 to 32 do
For j:=1 to 32 do
If (J[i,j] mod 2 <> 0) And (J[i,j] <0)Then S:= S+J[i,j];
Writeln("сумма отрицательных нечетных чисел = ",S);
End;
