var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
<span>2048 байт или 2 килобайта. </span>
Идем от обратного - получим из числа 37 число 3 операциями "раздели на 3" и "вычти 4".
37 нацело на 3 не делится, поэтому
37-4=33
33/3=11
11-4=7
7-4=3
Вернемся к исходным обозначениям.
3+4=7
7+4=11
11*3=33
33+4=37
Ответ: 2212
Const n=3;
var a:array[1..n,1..n] of integer;
i,j,s,max,min:integer;
begin
max:=-32767;
min:=32767;
for i:=1 no n do
for j:=1 to n do
begin
readln(a[i,j]);
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln(max+min)
end.
1 номер -C.
2номер -А.
3номер -В