• 19 November 2013
    • Химия
    • Автор: Кирилл123asd

    Помогите, пожалуйста, с последним номером, там где последовательность. нужно составить программу(паскаль). будущее благодарна.

    Изображение к вопросу Помогите, пожалуйста, с последним номером, там где последовательность. нужно составить программу(паскаль). будущее благодарна.


    • 19 November 2013
    • Ответ оставил: mrkuzka

    Uses crt;
    const n=10;
    var a:array[1..n] of integer;
    k,s,i:integer;
    begin
    randomize;
    k:=0;
    s:=0;
    for i:=1 to n do
    begin
    a[i]:=random(50);
    write(a[i]:3);
    end;
    writeln;
    for i:=1 to n do
    if a[i] mod 2<>0 then begin inc(k); s:=s+a[i];
    end;
    writeln(s);
    writeln(k);
    end.

    Оцените ответ

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

Последние и похожие вопросы

Ответ на вопрос Помогите, пожалуйста, с последним номером, там где последовательность. нужно составить программу(паскаль). будущее благодарна. - Вопросов.Нет

404