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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Таблицу 4.1 (типы данных) со страницы 107-108 в тетрадь Это очень ДомашкаЗарание
Автор: ПетросовичЗаславский
Дано выражение: 0 ^ (A V C) ^ 1 ___ A^B ^ A
Автор: shutovaa3471
Для каких целей используется модуль graph
Автор: skorykin123371
с заданием по информатике очень
Автор: stic1995
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.