[Pascal] После ввода входных данных программа ничего не выводит, хотя дальнейшие инструкции имеются.

[LinaMin]

Помогите пожалуйста. Я составила программу по задаче(внизу), но у меня проблема, после ввода Баллов за экзамены и ФИО(по задаче) она ничего больше не выводит, хотя там дальше идут действия. Мне сказали что в программе чего то не хватает, но до меня дойти не может чего. Если не сложно подскажите что мне нужно дописать.

program zadacha60;
var a:string;
    a1:array[1..1000] of string;
    i:array[1..100] of integer;
    n,b,c,d:integer;
begin 
   writeln ('ФИО'); read(a);
   writeln ('Баллы по математике'); read(b);
   writeln ('Баллы по русскому языку'); read (c);
   writeln ('Баллы по информатике'); read(d);
   
      begin
         if (i[b]>=100) and (i[c]>=100) and (i[d]>=100) then
            begin
              n:=i[b]+i[c]+i[d];
            end;
      end;
            begin
            if (n>=180) and (n>=250) then
               writeln (a, '-' , n , ' ,зачислен ,стипендия есть ')
            else writeln ('Не зачислен');
            end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

Задача: Известны фамилии абитуриентов и их результаты ЕГЭ по рус.яз, матем., информ.(результаты за каждый экзамен от 0 до 100)
а) определить кто из студентов зачислен в институт, , если проходной балл 180
б)вывести фамилии тех кто будет получать стипендию(суммарный балл от 250)

[Black Fregat]

Понимания задачи не хватает.
Сколько у Вас студентов с их фамилиями и баллами?
А сколько раз Ваша программа эти данные вводит?


А это вообще что???

Сообщение от LinaMin

n:=i[b]+i[c]+i[d];

[LinaMin]

Должен вводиться фио одного студента и по порядку его баллы по трем экзаменам.
В результате он должен вывод фио студента, сумма баллов по трем предметам, и проходит или нет, есть стипендия или нет.
Программу я попыталась переделать вот что сейчас есть.

program zadacha60;
var a:string;
    a1:array[1..1000] of string;
    i:array[1..100] of integer;
    n,b,c,d:integer;
begin 
   writeln ('ФИО'); read(a);
   writeln ('Баллы по математике'); read(b);
   writeln ('Баллы по русскому языку'); read (c);
   writeln ('Баллы по информатике'); read(d);
      begin
      for b:=1 to n do;
      for c:=1 to n do;
      for d:=1 to n do;
     
         if (b>=100) and (c>=100) and (d>=100)then 
         n:=b+c+d;
         if(n>=180) and (n>=250) then
         writeln (a, '-' , n , ' ,зачислен ,стипендия есть ')
         
         else
         writeln ('Не зачислен');
         end;
                  
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Black Fregat]

Сообщение от LinaMin

Должен вводиться фио одного студента и по порядку его баллы по трем экзаменам.

Зачем тогда массивы вообще? Зачем циклы?

Смотрю, баллы Вы уже проверяете и складываете напрямую. Это хорошо.

Сообщение от LinaMin

if (b>=100) and (c>=100) and (d>=100)then

Если это проверка на правильность ввода, то должно быть наоборот:
либо

if (b>=100) or (c>=100) or (d>=100) then
    writeln ('Ошибка');
else
    {тут работаем}

либо

if (b<=100) and (c<=100) and (d<=100) then
    begin
        {тут работаем}
    end
else
    writeln ('Ошибка');

Далее

Сообщение от LinaMin

if(n>=180) and (n>=250)

Двойная проверка тут не нужна, очевидно же, что если n >= 250, то и подавно n>=180. А перенести эту проверку нужно в ветку else, примерно так:

if n>=250 then
    {прошёл со стипендией}
else if n>=180 then
    {прошёл без стипендии}
else
    {увы..}