|
Надеюсь на вашу помошь, программисты
|
|
Буду очень благодарен за помошь:
1. Опишите в паскале алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.
2. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике.
|
|
|
|
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. Дан целочисленный массив из 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-ый.
...
|
|
|
|
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
|
|
|
|
|
|
|
min:=high(min); - это типа приходишь в магазин, в котором лежит 1 батон, и ты говоришь: дайте мне самый большой батон? xD
|
|
|
|
очень смешно
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Ну если без шуток в переменной min содержится одно число и смысла применять к нему функцию high нет, хотя скорей всего на этой строке компилятор выдаст ошибку. Сначала подумал, что вместо min надо подставить массив А, но в нем ведь нет данных на тот момент.
|
|
|
|
ничего он не выдаст, поверь)
я тебе на твоём же примере объясню:
задача такова:
найти среди кучи хлеба, хлеб с найменьшим весом, вот, и поэтому использую high мы выбираем хлеб с найбольшим весом и сравниваем с остальными
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
