ну я тут тебе решила)) хе-хе..
Как я понял i и j обозначают строки и столбцы массива 5Х5
Тогда Q встречается в 3 строке и 4 столбце. И в 4 строке в 5 столбце. Из предложенных вариантов подходят а и c так как индекс -это будет i =3 , j = 4 для варианта а и i = 4, j=5 для варианта с
Налево,налево,вниз, ,вниз,направо,направо,вверх,вверх,налево,налево,вниз, ,вниз,налево,
итак еще4 раза
Const N = 10;
var im, i, ie: Integer;
A: array [0..N] of Integer;
begin for i := 0 to N do
A[i] := random(99);
im := A[0];
for i := 0 to N do
if (A[i] > im) then
begin
im := A[i];
ie := i;
end;
writeln(ie);
<span>end.
==========================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then ie := i;
writeln(ie);
<span>end.
================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then
begin
ie := i;
break;
end;
writeln(ie);
<span>end.
================================
Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят</span></span></span>
Var
arr: array [1.. 50] of integer;
i : byte;
sum : integer;
begin
Randomize();
sum := 0;
for i := 1 to 50 do
begin
arr[i] := random(650, 750);
if arr[i] mod 4 = 0 then sum += arr[i];
end;
if sum <> 0 then
writeln(sum)
else
writeln('Таких чисел нет')end.