- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы
Решение
program C2;
uses
crt;
const
N = 28;
var
a : array[1..N] of integer;
i, j, min : integer;
begin
clrscr;
randomize;
for i := 1 to N do
read(a[i]);
min := 101;
for i := 1 to N do
if((a[i] >= 40) and (a[i] < min)) then
min := a[i];
writeln;
writeln('Минимальная оценка из положительных: ', min);
readkey;
end.
uses
crt;
const
N = 28;
var
a : array[1..N] of integer;
i, j, min : integer;
begin
clrscr;
randomize;
for i := 1 to N do
read(a[i]);
min := 101;
for i := 1 to N do
if((a[i] >= 40) and (a[i] < min)) then
min := a[i];
writeln;
writeln('Минимальная оценка из положительных: ', min);
readkey;
end.
- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы