Запишите с блок-схемы или на школьном алгоритмическом языке алгоритм отбора для салата всех имеющихся в школьной столовой варёных яиц, если пригодными для использования в салате являются яйца, полноценно раскручивающихся вокруг своей оси.?

Объяснение:

Если удовлетворяется одно из условий запроса, то номер сотрудника включается в ответ.

1. Дмитриев А.Н. – фамилия начинается на Д.

Номер 1 включаем.

2. Жукова А.А. – ни фамилия, ни имя, ни отчество не начинаются на Д.

Стаж: 7 < 10.

Номер 2 не включаем.

3. Таюрова Н.Д. – отчество начинается на Д.

Номер 3 включаем.

4. Смирнов Е.В. – ни фамилия, ни имя, ни отчество не начинаются на Д.

Стаж: 5 < 10.

Номер 4 не включаем.

5. Алексеева Е.С. – ни фамилия, ни имя, ни отчество не начинаются на Д.

Стаж: 10 равно, но не больше 10.

Номер 5 не включаем.

6. Добрынин В.И. – фамилия начинается на Д.

Номер 6 включаем.

Итоговый ответ: 4) 1, 3, 6.

PROGRAM A23;
const
    max = 42;
var
    vt:array[1..max]of integer;
    i,n:byte;
    x:integer;
    num:integer;

BEGIN
  n := max;
  writeln('Массив из n элементов будет задан случайными числами на интервале [0..20].');
  readln(n);  
  writeln('Подсчитать количество положительных элементов больших чем указанное число.');
  writeln('Введите число: '); readln(x);
  writeln(' ');

  writeln('Начальный Массив' );
  randomize;

  num := 0;
  for i:=1 to n do begin
    vt[i]:=random(-512,512);
    write(vt[i], ' ');
    
    if (vt[i]>0) then
      num:=num+1;
      
  end;
  writeln(' ');

  writeln('Найдено ', num,' положительных элементов больших чем ', x);
 
END.