Question

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

Answer 1

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.