Решить ! заполнить таблицу для автоматического определения красных дипломов фио средний наличие в дипломе «3» гос диплом 1 …. 10 средний – случайное число с одним знаком после запятой в интервале от 3,0 до 5,0. наличие в дипломе «3» - случайное целое число в интервале от 0 до 5. гос – случайное целое число в интервале от 3 до 5. красный диплом выдается в том случае, если: - средний > =4,75 - в дипломе не должно быть «3» - гос экзамен должен быть сдан на 5. в зависимости от выполнения условий в графе «диплом» вывести «красный» или синий».

Const n=10; var a1: array[1..n] of real;     a2,a3: array[1..n] of byte;     i: integer; begin randomize; for i: =1 to n do     begin   a1[i]: =0.1*(random(21)+30);   a2[i]: =random(6);   a3[i]: =random(3)+3;   end; writeln('фио средний наличие в дипломе "3" гос диплом'); for i: =1 to n do   begin   write(i: 3,a1[i]: 10: 1,a2[i]: 15,a3[i]: 13);   if (a1[i]> 4.75)and(a2[i]=0)and(a3[i]=5)     then writeln('   красный') else writeln('   синий');   end; end.

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

 

обрамления там везде одинаковые