profile
Опубликовано - 1 месяц назад | По предмету Информатика | автор Аноним

Помогите с Pascalem ABC. Создать массив из 12 Случайных чисел со значениями от -23 до 23 Провести его вычислить количество

  1. Ответ
    Ответ дан Воронцов Юрий
    var i, s: integer;
    n: real;
    d: array [1..12] of integer;
    begin
    for i:=1 to 12 do
    begin
    d[i]:= random(47)-23;
    write(d[i], ' ');
    if d[i] mod 5 = 0 then
    begin
    s := s + 1;
    n:= n+d[i];
    end;
    end;
    writeln('Количество чисел: ', s,'. Сумма чисел: ', n, '.')
    end.
    0