Паскаль,помогите!!! В числовом массиве из 10 элементов, заданных случайным образом от -100 до 500. Найти: 1) сумму положительных элементов,
10-11 класс
|
стоящих на чётных местах; 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.
Другие вопросы из категории
По заданной логической схеме (рис. 4) составить логическое выражение и заполнить для него таблицу истинности.
бит. Какой размер получившегося файла (в килобайтах)?
С решением
Читайте также
В числовом массиве из 10 элементов, заданных случайным
образом от -100 до 100:
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат