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