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

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.

Оба устройства, как планшет, так и смартфон очень похожи друг на друга, но по изначальной задумке производителей, они предназначены для несколько разных задач.Самое первое отличие это размер,планшет практически в раза 2 больше смартфона, соответственно экран будет тоже больше что есть один из плюсов.Так как есть меньше шанс посадить зренее так как экран телефона меньше чем планшета.

Отличия так же и в параметрах, в смартфоне они чаще всего выше и производительнее, тогда как планшеты обладают более простыми характеристиками. Смартфон по своей сути – телефон для звонков и связи, а планшет – устройство для интернета, просмотра видео и так далее.

Самым главным программным инструментом для смартфонов и планшетов является операционная система. Для большинства обоих видов гаджетов используется система Android. Вообде она ничем не отличается ни на смартфоне, ни на планшете. Но вот оптимизация, всё-таки, на обоих устройствах несколько разная. Отличаться будут так же и фирменные оболочки от разных производителей, но не значительно.

Microsoft QBasic 1.0

Ввод данных заменен на инициализацию от датчика псевдослучайных чисел на интервале [-45;45]. Если нужен именно ввод, строку A(I)=RND...
замените на INPUT(A(I))

CONST n = 10
DIM a(1 TO n, 1 TO n) AS INTEGER
RANDOMIZE TIMER
CLS
PRINT "Матрица A"
FOR i = 1 TO n
   FOR j = 1 TO n
      a(i, j) = INT(90 * RND - 45)
      PRINT USING ""; a(i, j);
   NEXT j
   PRINT
NEXT i
k = 0
FOR i = 1 TO n
   IF a(i, i) > 0 THEN k = k + 1
NEXT i
PRINT
PRINT "Количество положительных на ГД равно "; k

Пример выполнения программы
Матрица A
 -33  43 -43   3  19 -43  28  19  32  27
 -40  -4 -11 -27 -30  -7  35  19  24   0
 -21 -43  30  10 -16  39  43  16  30   4
 -39  40  13   3 -42  -5 -27  38  39  27
 -26  34 -17 -26  12  36  21  23  28 -29
  15  33 -44 -20   2 -36 -38  42 -44 -27
 -10  -6  15 -17 -39  10  21   1  -6  32
 -23   8  19  27 -19 -43  43   6  12 -18
 -14 -39   8  -8  -4  18  44   6 -30 -24
   9 -18   0  40  16  15  28  44  26  26

Количество положительных на ГД равно 6