// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ReadArrInteger(ReadInteger('n='));
var d:=ReadInteger('d=');
Writeln('Среднее ',a.Where(x->x>d).Average)
end.
<u><em>Тестовое решение:</em></u>
n= 8
6 3 -1 12 11 9 7 4
d= 8
Среднее 10.6666666666667
Var
a: array[1..10]of integer;
i, k, n: integer;
begin
Writeln('Исходный массив:');
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(51) - 25;
Write(a[i], ' ');
end;
Writeln;
n := 0;
k := 0;
for i := 10 downto 1 do
if a[i] > 0 then
begin
k := k + 1;
if k = 2 then n := i;
end;
if k = 0 then
Writeln('В массиве нет положительных элементов!')
else
Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
Readln;
end.
А)Разбиваем буквы на пары: урок, весна, каникулы, информация, мокрому дождь не страшен.
б)Читаем с права на лево: арена, корзина, рюкзак.
в)Разбиваем слово на слоги и записываем каждый слог с права на лево: канал, гитара, телевизор.
г)Читаем слово через букву с лева на право а затем оставшийся буквы с права на лево:балкон, вагон, кабинет.
Весь код в прикрепленках. Нужно просто откомпилировать в любом IDE. Если есть вопросы, пиши в коментариях, всё объясню. Запустив программу, нужно просто указать полный путь к файлу, в котором записаны два числа. В каждом ряду записываешь по 1 числу. Максимальная длина числа в данном формате файла - 1024 символа. Поменяй на произвольный формат файла, к примеру "myFile.myextention", а так же укажи больший размер переменной в main функции, в которую считывается файл и всё, можешь писать любую длину числа, главное отбей сновой строки каждое.
//1
begin
for var i:=6 to 12 do print (i);
end.
//2
begin
for var i:=1 to 4 do writeln ('забота');
end.
//3
var sum: longint;
begin
for var i:=1 to 5 do inc (sum, readinteger('Введите число: '));
write ('Сумма пяти чисел: ', sum);
end.
//4
var sum, n: integer;
begin
for var i:=1 to 10 do
begin
n:=readinteger ('Введите число: ');
if (n mod 2)=0 then inc (sum, n);
end;
write ('Сумма четных чисел: ', sum);
end.
//5
var sum, r: integer;
begin
for var i:=1 to readinteger ('Введите n: ') do
begin
r:=readinteger ('Введите число: ');
if (r mod 3)=0 then inc (sum, r);
end;
write (sum);
end.
//6
begin
for var i:=0 to 9 do
if ((4204+10*i) mod 7) = 0 then writeln (i);
end.