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.
Ответы
//прога на pascal`е var a: array of longint; n, i: longint; // procedure zam(var a, b: longint); var pz: longint; beginpz: =a; a: =b; b: =pz; end; procedure selectsort (rm : longint; var sortmas: array of longint); vari, j, min: longint; begin for i: =0 to rm-2 dobeginmin: =i; for j: =i to rm-1 doif sortmas[min]> sortmas[j] then min: =j; if i< > min then zam (sortmas[i], sortmas[min]); end; end; // beginrandomize; readln (n); setlength (a, n); for i: =0 to n-1 doa[i]: =random (2*1000000000) - 1000000000; writeln (a); selectsort (n, a); writeln (a); end.
//прога на pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('введите кол-во учеников: '); readln (n); setlength (mas, n); for i: =0 to n-1 do begin write ('введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end; write ('средний вес учеников: ', sumves / n, '; средний рост: ', sumrost / n) end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выполните сложения в двоичной системе с числения 10110111.2+101011.2
Автор: dmitrij-sp7
Что такое логическая величина в информатике ? ? заранее )
Автор: mariia39
Как называется ячейка, в которую вы что-то записываете
Автор: Igorevich1559
Выполни действие и запиши верный ответ. 18mod5=
Автор: Sergei1805
с решением задания, в ответе 170. Но какой ход решения ? Как дойти до этого ?
Автор: olesya-cat8601
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]< min) then min: =a[i];
writeln (min);
readln;
end.