Krista1196
Опубликовано 7 лет назад по предмету Информатика от Krista1196


найдите сумму всех положительных элементов одномерного массива

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

    var a: array[1..20] of integer;s,i: integer;begin

    s := 0; for i := 1 to 20 do begin a[i] := random(40)-20; if a[i] >0 thens := s+a[i]; write(a[i]:4); end; writeln; writeln(s);end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц