C2 № 2911. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать...

0 голосов
128 просмотров

C2 № 2911. Дан целочисленный массив из 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.


Информатика (12 баллов) | 128 просмотров
Дан 1 ответ
0 голосов

const

n=30;

var

a:array [1..n] of integer;

i,min:integer;

begin

for i:=1 to n do begin

readln (a[i]);

if a[i]>=20 then min:=a[i];

end;

for i:=2 to n do

if (a[i]>=20) and (a[i]

writeln (min);

readln;

end.

Одаренный (2.8k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей