1. Найти сумму квадратов положительных элементов массива. 2. Определить количество элементов в данном массиве, равные числу 13? Если нет, то вывести сообщение об этом. 3. Известны оценки по информатике каждого из 19 учеников класса. Определите количество «четверок». Написать полностью. На паскале.

домик, солнышко и качелька)))

program p1;
uses graphABC;
begin
ClearWindow(clskyblue);
line (0,200,640,200);
floodfill (50,250,cllime);
setbrushcolor (clnavy);
rectangle (80,100,180,200);
setbrushcolor (clbrown);
rectangle (110,130,140,200);
line (110,160,125,160);
line (125,160,125,160);
line (125,160,125,170);
line (125,170,120,170);
line (120,170,120,165);
line (120,165,110,165);
floodfill (120,162, clblack);
line (80,100,130,40);
line (130,40,180,100);
floodfill (130,50, clnavy);
setbrushcolor (clyellow);
rectangle (120,70,140,90);
line (130,70,130,90);
line (120,80,140,80);
setbrushcolor (clyellow);
circle (280,40,30);
line (250,30,230,10);
line (240,40,220,50);
line (240,60,220,80);
line (260,70,250,90);
line (300,70,310,90);
line (320,60,340,80);
line (320,40,340,50);
line (310,30,330,10);
setbrushcolor (clbrown);
rectangle (410,50,420,200);
rectangle (500,50,510,200);
rectangle (435,70,440,160);
rectangle (480,70,485,160);
rectangle (400,60,520,70);
rectangle (435,160,485,170);
end.

 

Текст программы (Pascal)
var
  a,b,c,d,e:byte;
  k:integer;
begin
  k:=0;
  for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
  end;
  Writeln(k)
end.

Тестовое решение:
190