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

mass1_3 
Заполнить массив размером 15 элементов целыми числами, вводимыми с клавиатуры. Вывести на экран элементы массива и количество чисел больших 9.

  1. Ответ
    Ответ дан Аккаунт удален
    var
      n,i:integer;
      a:array[1..15]of integer;
    begin
    for i:=1 to 15 do
      readln(a[i]);
    writeln('Массив: ');
    for i:=1 to 15 do
      begin
      write(a[i],' ');
      if a[i]>9 then n:=n+1;
      end;
    writeln;
    writeln('Ответ: ',n)
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      Program mass1_3;
      uses crt;
      var n,i:integer;
      a:array[1..15]of integer;
      begin
      for i:=1 to 15 do begin
      write('Ìàññèâ: ');
      read(a[i]);

      end;
      for i:=1 to 15 do begin
      write(a[i],' ');
      if a[i]>9 then n:=n+1;
      end;
      writeln;
      writeln('Îòâåò: ',n);
      end.
Самые новые вопросы