Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Надеюсь на вашу помошь, программисты
Буду очень благодарен за помошь:
1. Опишите в паскале алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.
2. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике.
1 | Автор: fool | 2012-10-28, 10:30   |  Репутация: [ + 0 ]
Quote (fool)
1. Опишите в паскале алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.


var
a:array[1..30]of integer;
i,max,k:integer;
begin
max:=low(max);
for i:=1 to 30 do begin
read(a[i]);
if a[i]>max then max:=a[i];end;
for i:=1 to 30 do
if a[i]=max then k:=k+1;
writeln(k);
end.

Второго задания не понял, что сделать нужно?

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-10-28, 12:50   |  Репутация: [ + 211 ]
Ахах) Простите, бывает...
2. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике. Для получения положительной оценки за тест требовалось набрать не менее 20 баллов. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит минимальный балл среди учащихся, получивших за тест положительную оценку. Известно, что в классе хотя бы один учащийся получил за тест положительную оценку. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
Паскаль
const N=30;
var a: array [1..N] of integer;
i, j, min: integer;
begin
for i:=1 to N do readln(a[i]);
...
end.
Естественный язык
Объявляется массив A из 30 элементов.
Объявляются целочисленные переменные i, j и min.
В цикле от 1 до 30 заполняются все элементы массива A с 1-ого по 30-ый.
...
3 | Автор: fool | 2012-10-28, 14:41   |  Репутация: [ + 0 ]
var
a:array[1..30]of integer;
i,min:integer;
begin
min:=high(min);
for i:=1 to 30 do begin
read(a[i]);
if (a[i]>=20) and (a[i] < min) then min :=a[i];end;
writeln(min);
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-10-28, 15:27   |  Репутация: [ + 211 ]
Благодарен от души
5 | Автор: fool | 2012-10-28, 17:31   |  Репутация: [ + 0 ]
min:=high(min); - это типа приходишь в магазин, в котором лежит 1 батон, и ты говоришь: дайте мне самый большой батон? xD
6 | Автор: HWOARANG | 2012-10-28, 22:51   |  Репутация: [ + 20 ]
очень смешно

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2012-10-29, 13:36   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2012-10-29, 13:36   |  Репутация: [ + 211 ]
Ну если без шуток в переменной min содержится одно число и смысла применять к нему функцию high нет, хотя скорей всего на этой строке компилятор выдаст ошибку. Сначала подумал, что вместо min надо подставить массив А, но в нем ведь нет данных на тот момент.
8 | Автор: HWOARANG | 2012-10-29, 19:17   |  Репутация: [ + 20 ]
ничего он не выдаст, поверь)
я тебе на твоём же примере объясню:
задача такова:
найти среди кучи хлеба, хлеб с найменьшим весом, вот, и поэтому использую high мы выбираем хлеб с найбольшим весом и сравниваем с остальными


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
9 | Автор: Berestovskiy | 2012-10-30, 17:11   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: