Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите алгоритм, позволяющий найти среднее арифметическое нечетных трехзначных чисел в этом массиве.​

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.

т.к рисунок состоит из  1310720  пикселей, следовательно чтобы получить такую цифру нужно найти произведение двух чисел, которые больше 1000, т.к. 1000*1000=1000000, следовательно, разрешение экрана наиболее близкое к данному : 1280 на 1024, т.к. 1280*1024=1310720 и это ближайшие числа к 1000

режим дня трудоголика

проснулся- позавтракал- на работу-домой-поужинал и спать

повторить nраз до самой смерти

var x,x1,x2,x3: integer; //x1- 1 число, х2- 2 число, х3 - 3 число

begin

  randomize;

  x: =random(1000)+10;

  if x div 100 > 0 then begin x1: =x div 100;

                                          x2: =(x mod 100) div 10;

                                          x3: =(x mod 100) mod 10;

                                          writeln(x,', ',x3,x2,x1);

                                  end

                          else writeln(x);

end.