Задать вопрос
16 октября, 18:15

Запишите программу в синтаксисе паскаль ABC которая заполняет массив случайными числами на отрезке от - 2 до 2 и считает сумму положительных элементов массива. Когда будете писать программу, не забывайте что в 9 м классе простые алгоритмы и еще более простые операторы.

+1
Ответы (1)
  1. 16 октября, 21:26
    0
    Const

    kk=100; { максимальный размер массива }

    var

    a:array[1 ... kk] of integer;

    i, k, s:integer;

    begin

    Write ('Введите количество элементов массива: ') ;

    Read (k) ;

    Randomize;

    s:=0;

    for i:=1 to k do begin

    a[i]:=Random (5) - 2;

    Write (a[i],' ') ;

    if a[i]>0 then s:=s+a[i]

    end;

    Writeln;

    Writeln ('Сумма положительных элементов массива равна ', s)

    end.

    Пример

    Введите количество элементов массива: 20

    2 2 1 - 2 - 1 - 1 1 0 1 2 1 0 2 1 2 - 2 - 1 - 1 - 1 - 2

    Сумма положительных элементов массива равна 15
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Запишите программу в синтаксисе паскаль ABC которая заполняет массив случайными числами на отрезке от - 2 до 2 и считает сумму ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы