Войти Регистрация Спроси ai-bota

Дан массив из 200 элементов. в массиве записан рост учеников. найти количество человек рост которых выше 180 см. язык паскаль

Ответ:

markpleshakov9oxahlf

06.10.2020 12:34

Const
   N = 200;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
Randomize;
Write('Исходный массив:');
k:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(101)+150;
    Write(' ',A[i]);
    if A[i] > 180 then k:=k+1;
    End;
WriteLn;
WriteLn('k = ',k);
ReadLn
End.

0,0(0 оценок)

Популярные вопросы: Информатика

gaviren

02.08.2021 15:31

Дан массив а(к).из элементов массива а сформировать массив в таким образом: сначала поместить все отрицательные массивы элемента а,потом равные нулю,а положительные в конце....

Perevezii

02.08.2021 15:31

На языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного массива 3)заполнить массив...

Пазновайка

22.03.2023 16:11

Всоревнованиях по гимнастике участвовали алла, валя, сима, даша. были высказаны предположения: 1) сима будет первой, валя второй; 2) сима будет второй, даша третьей; 3) алла будет...

Nadezhda6313

22.03.2023 16:11

1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного массива 3)заполнить массив из n целых чисел.выяснить...

daria9303

14.01.2023 01:44

1. рассчитать объем моноаудиофайла длительностью звучания 3 мин. при 16-битном кодировании и частоте дискретизации 40 кгц (выразить в мбайтах). 2. определить объем растрового графического...

Dilnaz200301

30.08.2020 10:59

Найдите выведите на экран все трехзначные числа,кратные 20,сумма цифр которых равны сумме цифр частного от деления их на 20 может так uses crt; var b,c,d,t,i,s,k: integer; o: real;...

Камранбек

30.08.2020 10:59

Определите информационный объем текста, размещенного на трех страницах. каждая страница содержит 48 строк по 64 символа в строке (16-битное кодирование). результат указать в килобайтах....

НЕЗНАЙКА2283371

05.05.2022 17:55

40 ! заполните таблицу по образцу и выполните соответствующие вычисления. используйте статические функции макс и срзнач.(таблица во вложении)протабулировать функцию y=|sinx+cosx| на...

ivanychboss

05.08.2020 01:44

Создайте программу, которая выводит на экран последовательность пар чисел каждый раз отличительным цветом, выбранным случайным образом. заранее большое !...

lenokm050406

01.11.2022 14:55

Написать программы : 1) вывести на экран n-раз двухзначное число, вводимое с клавиатуры; 2) вывести сумму всех четных двухзначных чисел; 3) вывести на экран два столбика значений:...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку