1. Дан целочисленный массив из 30 элементов, которые могут принимать значения от 150 до 200 – рост учащихся выпускного класса. В баскетбольную команду
10-11 класс
|
берут тех, чей рост не менее 180 см. Напишите программу, которая подсчитывает число претендентов в состав баскетбольной команды и выводит номера подходящих кандидатур.
Program Zn;
var m:array[1..30] of byte;
c,i:integer;
Begin
for i:=1 to 30 do begin
writeln('Введите рост кандидата');
Readln(m[i]);
if m[i]>=180 then inc(c)
end;
writeln('Количество подходящих кандидатур: ',c);
end.
(Программа проверена и откомпелирована на Pascal.NET, если есть вопросы, пишите)
const
n = 30;
var
a:array[1..n] of byte;
i, count:integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(51) + 150;
writeln('Рост претендета № ', i:2, ' - ', a[i]);
end;
write('Номера подходящих кандидатур: ');
for i := 1 to n do
if a[i] >= 180 then
begin
inc(count);
write(i, ' ');
end;
writeln;
writeln('Общее количество подходящих претендентов: ', count);
end.
Другие вопросы из категории
рисунке стр.1 и стр.2
Исходные данные вводятся с клавиатуры
экран должен очищаться , выводиться подсказка и программа должна возвращаться в начало. Условие для программы: Cоставьте программу , которая в зависимости от азимута, показываемого стрелкой компаса, определят страны света: север юг, воcток,запад.
Читайте также
Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.
мму, которая подсчитывает средний балл класса и выводит на экран номера учеников, набравших баллов больше среднего.
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
берут тех, чей рост не менее 180 см.Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.
Код Pascal
cоnst N = 30;
var A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do readln(A);
...
end.
принимать значения от 0 до 1000.описать на русском или на одном из языков програмирования алгоритм,который находит и выводит среднее арифметическое всех элементов массива,имеющих нечетное значение