Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Jihad
0 / 0 / 0
Регистрация: 20.10.2017
Сообщений: 3
1

Если студент является отличником, то найдите его средний балл, в противном случае найдите минимальную оценку

20.10.2017, 23:51. Просмотров 721. Ответов 2
Метки нет (Все метки)

Нужна ваша помощь в решении задачи : Имеется массив из итоговых оценок студента. Если студент является отличником (все оценки выше 7), то найдите его средний балл, в противном случае найдите минимальную из его оценок.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2017, 23:51
Ответы с готовыми решениями:

Дано целое число. Если оно двухзначное, найдите произведение его цифр, в противном случае напечатайте слова "не могу"
Дано целое число. Если оно двухзначное, найдите произведение его цифр, в...

Если строка является правильным записью целого числа, то найдите его наименьшую цифру
Дана строка. Если она является правильным записью целого числа, то найдите его...

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае
все цифры заданного четырехзначного числа N различны.

Составить программу,печатующую значение TRUE ,если указанное высказывание ,является истиным и FALSE в противном случае:
сумма двух первых цифр заданного четырехзначного числа равна сумме двух его...

Если наименьшее из чисел отрицательное,то заменить его нулём,в противном случае единицей
Помогите решить задачку.... Даны два действительных числа Х,У. Если...

2
ArtemFM
238 / 221 / 163
Регистрация: 10.09.2015
Сообщений: 834
23.10.2017, 07:11 3
Лучший ответ Сообщение было отмечено Jihad как решение

Решение

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
function getMin(arr : array of integer) : integer;
begin
   result := -1;
   if length(arr) > 0 then
   begin
      result := arr[0];
      for var i := 0 to length(arr) - 1 do
         if result > arr[i] then result := arr[i];
   end;
   getMin := result;
end;
 
function getAvg(arr : array of integer) : real;
begin
   result := 0;
   if length(arr) > 0 then
   begin
      var sum := 0;
      for var i := 0 to length(arr) - 1 do sum := sum + arr[i];
      result := sum / length(arr);
   end;
   getAvg := result;
end;
 
procedure printArray(arr : array of integer);
begin
   write('[');
   var leng := length(arr);
   if leng > 0 then
   begin
      for var i := 0 to leng - 1 do
      begin
         write(arr[i]);
         if i <> leng - 1 then write(', ');
      end;
   end;
   writeln(']');
end;
 
const
    range = 7;
var
   arrayOne : array of integer;
   arrayTwo : array of integer;
   min : integer;
   
begin
   //первый вариант с отличником
   arrayOne := new integer[5](8, 8, 10, 8, 9);
   write('Дан массив: ');
   printArray(arrayOne);
   min := getMin(arrayOne);
   if min = -1 then writeln('Массив пустой') 
   else if min <= range then writeln('Студент не отличник. Минимальная оценка = ', min)
   else writeln('Студент отличник! Его средний бал = ', getAvg(arrayOne):0:2);
   
   //второй вариант не с отличником
   arrayTwo := new integer[5](8, 5, 10, 8, 9);
   write('Дан массив: ');
   printArray(arrayTwo);
   min := getMin(arrayTwo);
   if min = -1 then writeln('Массив пустой') 
   else if min <= range then writeln('Студент не отличник. Минимальная оценка = ', min)
   else writeln('Студент отличник! Его средний бал = ', getAvg(arrayTwo):0:2);   
   
   //по сути один из вариантов удали и задавай просто заново массив для теста
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2017, 07:11

Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае
Составить программу, печатающую значение true, если указанное высказывание...

Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае.
Помогите решить плиз, очень надо, заранее огромное спасибо. Тока пишите...

Составить программу,печатающию значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: треугольник со сторонами a,b
Cоставить программу,печатающую значение true, если указанное высказывание...


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

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

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