сервис вопросов и ответовдан одномерный массив состоящий из 10 элементов.Найти произведение этих 10 элементов(составить программу на языке паскаль). ПОМОГИТЕ ПОЖАЛУЙСТА:*****
5-9 класс|
|
Boltaeva2003
02 марта 2014 г., 4:32:51 (10 лет назад)
Olgamailru
02 марта 2014 г., 5:48:40 (10 лет назад)
uses crt;
var a:array [1..10] of real;
i:integer; p:real;
begin
clrscr;
randomize;
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
p:=p*a[i];
end;
writeln;
write('proizvedenie: ',p);
end.
Kolnastiy
02 марта 2014 г., 6:42:22 (10 лет назад)
Program Please;
uses crt;
const n=10;
var
a:array[1..n] of integer;
i:integer;
mm:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Элементы массива:');
{создание и вывод массива}
mm:=1;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write (a[i]:5);
mm:=mm*a[i];
end;
writeln();
writeln();
writeln('Произведение элементов массива ',mm);
end.
Ответить
Другие вопросы из категории
НАРООД!В детском саду 52 ребёнка .Каждый из них любит пирожной или мороженое .Половина детей любит пирожное ,а 20 человек -пирожное и мороженое. Сколько
детей любит мороженое ? Предупреждаю.Тут есть какой-то подвох в задании.Помогите решить пожалуйста .
Читайте также
ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Решить задачи на языке программирования в Turbo Pascal: 1) Дан массив, состоящий из 10 чисел, значения могут быть
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
1. Дан массив А из 10 элементов, которые заполняются случайным образом, числам от 0 100. Выведите массив на экран и найдите максимальный элемент массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ: 1) Разработайте алгоритм для ввода в память ЭВМ линейной таблицы В, состоящей из 8 элементов вещественного
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса
Вы находитесь на странице вопроса "дан одномерный массив состоящий из 10 элементов.Найти произведение этих 10 элементов(составить программу на языке паскаль). ПОМОГИТЕ ПОЖАЛУЙСТА:*****", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.