1) Исключите лишние команды при подготовки документа к печати
1) файл
2) предварительный разметка страницы
4) печать

1.Составьте словесный алгоритм по данному коду программы (изображение)

2.Укажите в данном коде программы:
1.Назначение цикла (дописать)
2.Команды содержащие условия(дописать

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  // заполним информацию случайным образом;
  // если хорошистов в результате не окажется,
  // просто перезапускаем задачу
  randomize;
  var a:=MatrRandom(13,10,4,5); // везде только 4 и 5
  for var i:=1 to 20 do // раскидаем 20 троек
    a[Random(13),Random(10)]:=3;
  a.Println(2); Writeln;
  // собственно, решение
  var k:=0;
  foreach var r in a.Rows do
    if r.All(x->x<>3) and not r.All(x->x=5)  then k+=1;
  Writeln(k,' хорошистов')
end.

Пример
5 5 4 4 4 5 3 3 4 4
 5 4 4 4 3 4 5 5 4 5
 5 5 5 3 5 4 4 5 5 4
 3 5 4 3 4 4 5 5 5 3
 5 3 4 4 5 4 4 5 5 4
 3 5 5 5 5 4 4 4 4 3
 4 4 5 3 5 4 4 5 4 5
 4 5 4 4 4 4 4 4 5 4
 3 5 3 4 4 4 4 4 5 3
 5 5 4 5 4 4 4 5 4 5
 4 5 4 5 4 5 3 4 5 5
 4 5 4 4 4 4 5 4 4 5
 4 3 5 4 4 4 5 5 3 5

3 хорошистов

Составил тебе только программу. Для блок-схемы создавай отдельную тему.

const

 a = 3.14;

 b = -7.8;

 n = 15;

 x: array[1..n] of real = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214, -3.837, 0.918, -75.014);

var

 i, k: integer;

 p: real;

begin

 k := 0;

 p := 1;

 for i:=1 to n do

   if (x[i]>0) and (x[i]>b) then

   begin

     p := p * x[i];

     inc(k);

   end;

 if k = 0 then writeln('Нет искомых элементов в массиве')

 else writeln('Количество искомых элементов: ',k,'; их произведение = ',p:0:3);

end.