Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200

@Варварочка · Регистрация: 13.04.2016

Студворк — интернет-сервис помощи студентам

Дан целочисленный массив из 30 элементов.
Элементы могут принимать значения от 160 до 200 *– рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.

Нужно составить программу именно на языке паскаль.

Паскаль

Pascal

const N = 30;
var A: array[1..N] of integer;
     i, x, y: integer;
     s: real;
begin
for i:=1 to N do readln(A[i]); 
...
end.

Объявляется массив A из 30 элементов.
Объявляются целочисленные переменные i, x
и y, а также вещественная
переменная s.
В цикле от 1 до 30 заполняются все
элементы массива A с
1-ого по 30-ый.
...

@Puporev · 21.04.2016, 09:14

Pascal

const n=30;
var a:array[1..n] of integer;
    i,x:integer;
begin
writeln('Введите ',n,' чисел от 160 до 200');
x:=200;
for i:=1 to n do
 begin
  readln(a[i]);
  if(a[i]>=180)and(a[i]<x)then x:=a[i];
 end;
writeln('Минимальный рост игрока баскетбольной команды=',x);
end.

	21.04.2016, 09:14

Опции темы