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

ИНФОРМАТИКА 9 КЛАСС (напишите целиком задачу пжлст)
Написать программу: Заполнить массив из 20 элементов случайными числами на интервале [-20, 25]. Найти произведение элементов с четными номерами.

  1. Ответ
    Ответ дан AlexGrishin
    var i,s: integer; a:array[1..20] of integer;
    begin
    s:=1;
    randomize;
    for i := 1 to 20 do
    a[i] := random(45)-20;
    for i:=1 to 20 do
    begin
    i:=i+1;
    s:=s*i;
    end;
    write(s);
    end.

    проверяй в компиляторе, где-то накосячил
Самые новые вопросы