• 29 November 2014
    • Беларуская мова
    • Автор: test03

    Составте пргорамму которая заполняет массив а 1.8 случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму массива с нечётнвми значениями

    • 29 November 2014
    • Ответ оставил: Chupinaanna1

    Program dfg;
    var
    a: array [1..8] of integer;
    f,n,i:integer;
    begin
    n:=0;
    randomize ;
    for I:=1 to 8 do
    begin
    a[i]:= random(1,10);
    writeln(a[i]);
    if (a[i] mod 2)=0 then
    begin
    f:=1;
    end
    else 
    begin 
    f:=0;
    end;
    n:=n+f;
    end;
    writeln(n);
    end.

    Оцени ответ
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы