Паскаль,помогите!!! В числовом массиве из 10 элементов, заданных случайным образом от -100 до 500. Найти: 1) сумму положительных элементов, стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на неч...
Паскаль,помогите!!! В числовом массиве из 10 элементов, заданных случайным образом от -100 до 500. Найти: 1) сумму положительных элементов, стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на нечётных местах;
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы