Задать вопрос Регистрация
Помочь другим

  • Паскаль,помогите!!!

    В числовом массиве из 10 элементов, заданных случайным образом от -100 до 500. Найти: 1) сумму положительных элементов, стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на нечётных местах;

Ответы 1

  • uses crt; 

    var

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

    s,p,i:integer;

    begin

    clrscr;

    randomize;

    for i:=1 to 10 do begin

    a[i]:=random(601)-100;

    write(a[i],' '); 

    end; 

    s:=0;

    p:=1;

    writeln;

    for i:=1 to 10 do begin

    if (a[i]>0) and (odd(i)=false) then s:=s+a[i];

    if (a[i] mod 3 = 0) and (odd(i)=true) then p:=p*a[i];

    end;

    writeln ('s = ',s);

    writeln ('p = ',p);

    readln;

    end. 

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years