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

СССССРООООООООООООООЧЧЧЧЧЧННОООООО!!!!!!!!!!

Дан массив целых чисел. Найдите: 
а) Сумму элементов массива, больших данного числа А (А вводить с клавиатуры).

  1. Ответ
    Ответ дан Hasl1337

    const z = 10;
    var
      a: array[1..z] of integer;
      i, n, s: integer;
    begin
      readln(n);
      for i := 1 to z do begin
        a[i] := random(100);
        write(a[i], ' ');
        if(a[i] > n) then s := s + a[i];
      end;
      writeln;
      writeln('Сумма эл. > ', n, ' : ', s);
    end.

Самые новые вопросы