Найти и вывести фамилии тех студентов, которые на экзаменах получили не ниже 7 баллов

@Ad1LeT · Регистрация: 06.10.2014

Author24 — интернет-сервис помощи студентам

Даны оценки группы студентов на экзаменах по 4 предметам: алгебре, геометрии, философии, информатике. Найти и вывести фамилии тех студентов, которые на экзаменах получили не ниже 7 баллов

@vladar3vvv · 10.12.2014, 10:24

Pascal

  var i,j:byte;
      a: array[1..16,1..4] of single;
begin
  randomize;
  writeln('Ocenki:');
  for i:=1 to 16 do
    begin
      write(i,') ');
      for j:=1 to 4 do
        begin
          a[i,j]:=random(10)+1;
          write(' ',a[i,j]:1:0,' ');
        end;
      writeln;
    end;
  for i:=1 to 16 do
    begin
      if (a[i,j] >= 7) or (a[i,j] >= 7) or (a[i,3] >= 7) or (a[i,4] >= 7) then
      writeln('Nie nize semerki u studenta: ',i);
    end;
  readln
end.

@Ad1LeT 2 / 2 / 0 Регистрация: 06.10.2014 Сообщений: 108 Записей в блоге: 1
		1
	Найти и вывести фамилии тех студентов, которые на экзаменах получили не ниже 7 баллов 09.12.2014, 12:20. Показов 2177. Ответов 1 Метки нет (Все метки) Даны оценки группы студентов на экзаменах по 4 предметам: алгебре, геометрии, философии, информатике. Найти и вывести фамилии тех студентов, которые на экзаменах получили не ниже 7 баллов 0

	10.12.2014, 10:24

Найти и вывести фамилии тех студентов, которые на экзаменах получили не ниже 7 баллов

Решение