Const
n = 8;
nmax = 32767;
var
a: array[1..n] of integer;
i, t, min: integer;
begin
min := nmax;
for i := 1 to n do
begin
Read(t); a[i] := t;
if (t > 0) and (t mod 2 = 0) then
if min > t then min := t
end;
if min <> nmax then
Writeln('Минимальный положительный четный элемент равен ', min)
else
Writeln('В массиве нет четных положительных элементов')
end.
<u>Тестовое решение:</u>
353 638 -1000 -452 320 -18 19 0
Минимальный положительный четный элемент равен 320
Первое задание:
Загрузил решение скрином.
Алгоритм простой, ищем в каждой строке самое большое число по модулю, а потом в той-же строке меняем его на противоположное.
Второе задание:
Загрузил решение скрином.
Ну а тут просто обычная проверка координат, если введёная пользователем координата равна 1, то увеличиваем её на 1, если 2 или 0, то просто ничего не трогаем.
Мало данных для решения... Главное - размер пробоины и размер листа стали...
Const
n = 20;
var
i, imax, j, x: integer;
a: array[1..n]of integer;
begin
for i := 1 to n do
a[i] := random(100);
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
x := a[i];
a[i] := a[imax];
a[imax] := x;
end;
for i := 1 to n do
write(a[i],' ');
writeln();
writeln(imax);
end.
1 символ =1 байт
16*32 = 512 байт одна страница
10 Кб = 10*1024 = 10240 байт
10240/512 = 20
Ответ: 20 страниц