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

Помогите пожалуйста создать массив 10 случайных целых чисел в диапазоне [-5; 5]. Вычислить сумму элементов меньших 3.

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

    Ответ:

    var a: array [1..10]  of integer;

    i, sum: integer;

    begin

    sum:=0;

    randomize;

    for i:=1 to 10 do

    a[i]:= random(11) - 5;

    for i:=1 to 10 do begin

    if a[i] < 3 then

    sum:=sum+a[i];

    end;

    writeln(sum);

    end.

    Объяснение: