Вопрос по информатике:
1. Дан целочисленный массив из 15 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике. Для получения положительной оценки за тест требовалось набрать не менее 20 баллов. Создайте на языке Pascal АВС программу которая находит и выводит минимальный балл среди учащихся, получивших за тест положительную оценку.
Использовать следующие процедуры и функции: процедуры формирования массива, процедуры вывода массива. Функцию поиска минимального элемента. В каждую подпрограмму в качестве параметра передавать исходный массив
- 06.03.2016 17:37
- Информатика
- remove_red_eye 16483
- thumb_up 31
Ответы и объяснения 1
Const n=15;
type ar=array[1..n] of integer;
procedure p1(var a:ar);
var i:integer;
begin
for i:=1 to n do a[i]:=random(101);
end;
procedure p2(var a:ar);
var i:integer;
begin
for i:=1 to n do write(a[i],' ');
writeln;
end;
function min(var a:ar):integer;
var m,i:integer;
begin
m:=100;
for i:=1 to n do
if (a[i]=20) then m:=a[i];
min:=m;
end;
var a:ar;
begin
Randomize;
p1(a);
p2(a);
writeln('min = ',min(a));
end.
Пример:
15 59 25 47 3 53 57 91 13 22 99 12 53 87 68
min = 22
- 07.03.2016 17:29
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.