Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
hell4eg
#1

Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки - Pascal

28.01.2013, 22:57. Просмотров 545. Ответов 1
Метки нет (Все метки)

Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки на 4 в противном случае найти его средний балл
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2013, 22:57
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки (Pascal):

Определить количество дней, в которых оценки меньше средней оценки по классу - Pascal
в массиве записаны оценки по информатике 22 учеников класса. Определить количество дней, в которых меньше средней оценки по классу, и...

Напечатать фамилии студентов и название предметов, по которым они получили неудовлетворительные оценки - PascalABC.NET
Добрый вечер всем! у меня было задание ... вот: Составить программу, которая будет печатать фамилии студентов и название предметов, по...

Распечатать таблицу, содержащую номера, фамилии, оценки и количество положительных оценок каждого студента не меньше 3 - Turbo Pascal
здраствуйте! Нужно написать программу Обработка символьной информации записать в виде подпрограммы. Условие ссылка на сторонний ресурс...

Распечатать список студентов, которые получили неудовлетворительные оценки за последнюю сессию - Turbo Pascal
Распечатать список студентов, которые получили неудовлетворительные оценки за последнюю сессию, упорядоченный в алфавитном порядке.Для...

Расположить оценки студента в заданном порядке - Turbo Pascal
Имеется n итоговых оценок студента. Расположите эти оценки в следующем порядке: десятки, восьмерки, шестерки. Остальные оценки в...

Известны оценки по информатике 28 учеников класса. Выяснить, ли среди оценок двойки - Turbo Pascal
3. Известны оценки по информатике 28 учеников класса. Выяснить, ли среди оценок двойки?

1
CodeR
Фрилансер
3365 / 2774 / 787
Регистрация: 08.02.2012
Сообщений: 6,176
Записей в блоге: 1
29.01.2013, 09:40 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Var A:array[1..100] of integer;
    i,n:byte;
    sr:real;
    f:boolean;
Begin
    Randomize;
    write('Кол-во оценок студента: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(4)+2;
      write(A[i]:2);
    End;
    f:=true;
    For i:=1 to n do
     if A[i]<4 then f:=false;
    writeln;
    if f then 
    Begin
      For i:=1 to n do
       sr:=sr+A[i];
      writeln('Средний балл = ',sr/n:0:2);
    End
    else
    For i:=1 to n do
    Begin
      if A[i]<4 then A[i]:=4;
      write(A[i]:2);
    End;
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2013, 09:40
Привет! Вот еще темы с ответами:

Для каждой оценки программа должна вычислить процент от общего количества оценок. - Turbo Pascal
Написать программу, которая обрабатывает результаты единого экзамена (случай- ные числа от 0 до 100). Для каждой оценки программа должна...

Определите, является ли студент неуспевающим - Pascal ABC
имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4)

Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4) - Delphi
Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4). Delphi 7. В консольном варианте

Имеется n итоговых оценок студента. Определите, является ли студент отличником (все оценки не ниже 9) - Delphi
Имеется n итоговых оценок студента. Определите, является ли студент отличником (все оценки не ниже 9).


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru