1. дан целочисленный массив из 15 элементов. элементы массива могут принимать целые значения от 0 до 100 – учащихся выпускного класса за итоговый тест

Question

Информатика: 1. дан целочисленный массив из 15 элементов. элементы массива могут принимать целые значения от 0 до 100 – учащихся выпускного класса за итоговый тест по информатике. для получения положительной оценки за тест требовалось набрать не менее 20 . создайте на языке pascal авс программу которая находит и выводит минимальный среди учащихся, получивших за тест положительную оценку. использовать следующие процедуры и функции: процедуры формирования массива, процедуры вывода массива. функцию поиска минимального

liyakuper2 · Answer

Const n=15;type ar=array[1..n] of integer;procedure p1(var a:ar);var i:integer;beginfor i:=1 to n do a[i]:=random(101);end;procedure p2(var a:ar);var i:integer;beginfor i:=1 to n do write(a[i], );writeln;end;function min(var a:ar):integer;var m,i:integer;beginm:=100;for i:=1 to n do  if (a[i] m)and(a[i] =20) then m:=a[i];min:=m;end;var a:ar;beginRandomize;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...

Популярные вопросы