Type
Mass = array [1..1000, 1..1000] of Integer;
var
A: Mass;
n, m, i, j: Integer;
begin
Write('Количество строк массива: ');
ReadLn(n);
Write('Количество столбцов массива: ');
ReadLn(m);
for i := 1 To n Do
begin
for j := 1 To m Do
begin
Write('Введите элементы массива A[', i, ',', j, ']=');
ReadLn(A[i, j]);
end;
end;
WriteLn('Итоговый массив:');
for i := 1 to n do
begin
for j := 1 to m do
begin
A[1, j] := 111;
A[i, 2] := 222;
Write(' A[', i, ',', j, ']=', A[i, j], ';')
end;
WriteLn;
end;
end.
Задание можно озвучить так:
Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.
Var
i, k,n, max: integer;
f:boolean;
begin
readln(k);
for i := 1 to k do
begin
readln(n);
if (i = 1) or (max < n) then
max := n;
f:=f or (n=0);
end;
writeln(max,' ', f);
end.
Йохпснбчйа - (шифр цезаря это замена каждой буквы на следующей в алфавите)
(a+1)*(–a), если a=10 = -110
<span>(x+1) div (x–1), если x=2 и если x=4 = 3 или 1
</span><span>2*4 mod 3 = 2
</span><span>2*(4 mod 3) = 2
</span><span>–a*(–1), если a=431 = 431</span>