Задать вопрос
15 июня, 00:50

составить программу

1) найти сумму всех элементов массива (1 до10) random.

2) сформировать массив из положительных и отрицательных элементов от - 10 до 30. найти кол-во положит и отриц элементов. найти сумму положит и произведение отриц.

+5
Ответы (1)
  1. 15 июня, 02:21
    0
    var a:array[1 ... 10] of integer;

    i, s:integer;

    Begin

    randomize;

    for i: = 1 to 10 do begin

    a[i]: = random (100) ;

    s:=s+a[i];

    end;

    writeln (s) ;

    End.

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

    i, mk, pk, s, p:integer;

    Begin

    randomize;

    p:=1;

    for i: = 1 to 10 do begin

    a[i]: = random (30+10) - 10;

    if a[i]>=0 then begin

    pk:=pk+1;

    s:=s+a[i];

    end

    else begin

    mk:=mk+1;

    p:=p*a[i];

    end;

    end;

    writeln (pk, s, mk, p) ;

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