1) Так как сказано: "<span>предшествующего И предыдущего</span>", то начальный и конечный элементы массива не рассматриваются.
2) Сначала создаётся массив содержащий цифры числа, после чего происходит поиск индекса наибольшего числа. Метод Array.Reverse() переворачивает массив.
Решения в прикреплении так как при вставке кода пропадает вся табуляция.
Program Program1;
Var
i:integer;
a:array [1..12] of integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(51)-40;
writeln;
writeln('Элементы больше -10:');
for i:=1 to 12 do
if a[i]>-10 then write('a[',i,']=',a[i],', ');
writeln;
writeln('Элементы меньше 5:');
for i:=1 to 12 do
if a[i]<5 then write('a[',i,']=',a[i],', ');
end.
Ответ:
x>6
Объяснение:
(x>6) ∧ НЕ(x<2) = (x>6) ∧ (x≥2)= x>6
Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. Посему проверка на отрицательность делаться не будет - ввод чисел меньше 1 противоречит условию задачи.
Вариант 1. Без операторов цикла.
var
a,b,c,d:integer;
begin
Write('Введите 4 натуральных числа: ');
Read(a,b,c,d);
if a mod 2=0 then Writeln('Корень из ',a,' равен ',sqrt(a));
if b mod 2=0 then Writeln('Корень из ',b,' равен ',sqrt(b));
if c mod 2=0 then Writeln('Корень из ',c,' равен ',sqrt(c));
if d mod 2=0 then Writeln('Корень из ',d,' равен ',sqrt(d));
end.
Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775
Вариант 2. С оператором цикла.
var
i,n:integer;
begin
for i:=1 to 4 do begin
Write('Введите натуральное число: ');
Read(n);
if n mod 2=0 then Writeln('Корень из ',n,' равен ',sqrt(n))
end
end.
Пример решения
Введите натуральное число: 3
Введите натуральное число: 8
Корень из 8 равен 2.82842712474619
Введите натуральное число: 16
Корень из 16 равен 4
Введите натуральное число: 12
Корень из 12 равен 3.46410161513775
Вариант 3. С массивами
var
i:integer;
a:array[1..4] of integer;
begin
Write('Введите 4 натуральных числа: ');
for i:=1 to 4 do Read(a[i]);
for i:=1 to 4 do
if a[i] mod 2=0 then Writeln('Корень из ',a[i],' равен ',sqrt(a[i]))
end.
Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775
Определяем количество символов на странице:
30*40=1200 байт=9600 бит (т.к. 8 бит =1 байту)
файл 640 кбайт равен
640*1024=655360 байт
определим количество страниц которое поместится в файл
655360/1200=546,13 страницы
следовательно, в файл поместиться 546 страниц