profile
Опубликовано 5 лет назад по предмету Информатика от vostroknytovai

В массиве посчитать количество элементов больших чем 11(Элементов массива 23.Массив вводится случайным образом в интервале [1;14]

  1. Ответ
    Ответ дан JProtos
    Можно и без массива. 
    var
     n,m,k,i,l:longint;
    begin
     for i:=1 to 23 do 
     begin
     readln(m);
     if m>11 then inc(k);
    end;
    writeln(k);
    readln;
    end.

    С массивом:
    var
     n,m,k,l,i:longint;
     a:array[1..100]of longint;
    begin
     for i:=1 to 23 do readln(a[i]);
     for i:=1 to 23 if a[i]>11 then inc(k);
    writeln(k);
    readln;
    end.
     
    1. Ответ
      Ответ дан vostroknytovai
      а если с массивом,сможете написать?