Такие получились преобразования: НЕГА - ННЕГА - ММДВЯ - ММДВЯП - ЛЛГБЮО. Ответ - ЛЛГБЮО.
Ответ:
program zz1;
const n = 12; // задаем количество элементов в массиве
var i, k, k1, s, c:integer; // задаем переменные целого типа
m:array [1..n] of integer;
begin
write(' введите заданное число ');
read(c);
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(51);
for i:=1 to n do // выводим полученный массив на экран
write(m[i],' ');
writeln; // переходим на новую строку для вывода ответа
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
begin
if i mod 2 = 1 then begin s:=s + m[i];k:=k+1;end; // получаем сумму и количество элементов на нечетных местах
if m[i] < c then k1:=k1 + 1; // получаем количество элементов меньших заданного
end;
writeln( ' среднее арифметическое чисел стоящих на нечетных местах = ', s/k:5:2); //выводим ответ
writeln( ' количество чисел меньших заданного С = ', k1);
end.
Объяснение:
Во всех версия Excel:
1. FP - <span>структура многотипных данных, представляющая все типы данных листов (в том числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных данных.
2. </span>XLOPER<span> —
структура многотипных данных, представляющая все типы данных листов (в том
числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления
потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных
данных.
</span>
В Excel с 2007 года: FP12 —
структура двухмерного массива с плавающей запятой, поддерживающая все строки и
столбцы, начиная с Excel 200
XLOPER12 —
структура многотипных данных, представляющая все типы данных листов (в том
числе сообщения об ошибках), целые числа, ссылки на диапазон, типы управления
потоком для листов с макросами XLM и тип данных внутреннего хранилища двоичных
данных.
<span> </span>
На выводе массива поставил вывод до 4 знака после запятой, можете убрать, если захотите. Или вообще вывод массива убрать
uses crt;
const n=16;
var i,ans:integer;
mas:array[1..n] of real;
begin
writeln('Массив:');
for i:=1 to n do
begin
mas[i]:=cos(i)/i;
writeln(mas[i]:0:4);
end;
if mas[1]>mas[2] then
inc(ans);
for i:=2 to n do
if (mas[i]>mas[i-1]) and (mas[i]>mas[i+1]) then
inc(ans);
writeln('Ответ: ',ans);
<span>end.</span>
{
Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите:
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
if (a >= b) and (a >= c) and (a >= d) and (a >= e) then
max := a
else
if (b >= a) and (b >= c) and (b >= d) and (b >= e) then
max := b
else
if (c >= b) and (c >= a) and (c >= d) and (c >= e) then
max := c
else
if (d >= b) and (d >= c) and (d >= a) and (d >= e) then
max := a
else
max := e;
writeln('наибольшее число ', max);
end.
----------------------------------------------------------------------------
Форматирование кода:
if (****) then
begin
оператор1;
оператор2;
end
else
begin
оператор1;
оператор2;
end;
}
-----------------------------------------------------------------------------
Включите мозг и напишите нормальный код
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
max:=a;
if b > max then max:=b;
if c > max then max:=c;
if d > max then max:=d;
if e > max then max:=e;
Writeln(max);
end.
----or-----
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3;
var (d,e):= readinteger2;
Writeln(max(a,max(b,max(c,max(d,e)))));
end.
