1 массив состоял из 15 элементов вещественного типа icon

1 массив состоял из 15 элементов вещественного типа



Название1 массив состоял из 15 элементов вещественного типа
Дата конвертации02.06.2012
Размер20.12 Kb.
ТипДокументы

Набрать программу нахождения суммы всех элементов массива. Изменить программу таким образом, чтобы:

1) массив состоял из 15 элементов вещественного типа;

2) значения элементов массива должны меняться в интервале от 0 до 5;

3) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.


Program massiv;

Const n=10;

Var a:array[1..n] of integer;

s,i: integer;

Begin

WriteLn('Исходный массив:');

For i:=1 to n do

begin

a[i]:=random(10);

Write('a[',i,']=',a[i],' ');

WriteLn (' ');

end;

s:=0;

For i:=1 to n do

s:=s+a[i];

WriteLn('Сумма всех элементов массива S=',s);

end.

Набрать программу нахождения суммы всех элементов массива. Изменить программу таким образом, чтобы:

1) массив состоял из 15 элементов вещественного типа;

2) значения элементов массива должны меняться в интервале от 0 до 5;

3) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.


Program massiv;

Const n=10;

Var a:array[1..n] of integer;

s,i: integer;

Begin

WriteLn('Исходный массив:');

For i:=1 to n do

begin

a[i]:=random(10);

Write('a[',i,']=',a[i],' ');

WriteLn (' ');

end;

s:=0;

For i:=1 to n do

s:=s+a[i];

WriteLn('Сумма всех элементов массива S=',s);

end.




Набрать программу нахождения суммы всех элементов массива. Изменить программу таким образом, чтобы:

1) массив состоял из 15 элементов вещественного типа;

2) значения элементов массива должны меняться в интервале от 0 до 5;

3) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.


Program massiv;

Const n=10;

Var a:array[1..n] of integer;

s,i: integer;

Begin

WriteLn('Исходный массив:');

For i:=1 to n do

begin

a[i]:=random(10);

Write('a[',i,']=',a[i],' ');

WriteLn (' ');

end;

s:=0;

For i:=1 to n do

s:=s+a[i];

WriteLn('Сумма всех элементов массива S=',s);

end.

Набрать программу нахождения суммы всех элементов массива.
Изменить программу таким образом, чтобы:

1) массив состоял из 15 элементов вещественного типа;

2) значения элементов массива должны меняться в интервале от 0 до 5;

3) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.


Program massiv;

Const n=10;

Var a:array[1..n] of integer;

s,i: integer;

Begin

WriteLn('Исходный массив:');

For i:=1 to n do

begin

a[i]:=random(10);

Write('a[',i,']=',a[i],' ');

WriteLn (' ');

end;

s:=0;

For i:=1 to n do

s:=s+a[i];

WriteLn('Сумма всех элементов массива S=',s);

end.




Похожие:

1 массив состоял из 15 элементов вещественного типа iconДан массив а (9,7). Найти количество различных элементов повторяющихся один раз
Дан массив а (9,9). Найти сумму элементов главной диагонали. Если сумма меньше 100, то распечатать первые 4 столбца, иначе последние...
1 массив состоял из 15 элементов вещественного типа iconВ одномерном массиве произвольных чисел найти количество нечётных элементов
Из одномерного массива произвольных чисел целых чисел сформировать 2 массива: a массив четных чисел и b массив нечетных чисел
1 массив состоял из 15 элементов вещественного типа iconТема : Работа с массивами и матрицами в языке программирования
В программе используется одномерный целочисленный массив a с индексами от 0 до Ниже представлен фрагмент программы, записанный на...
1 массив состоял из 15 элементов вещественного типа iconТема : Работа с массивами и матрицами в языке программирования
В программе используется одномерный целочисленный массив a с индексами от 0 до Ниже представлен фрагмент программы, записанный на...
1 массив состоял из 15 элементов вещественного типа iconMin (Х1, Х3, Х5, )
Задан целочисленный массив Х, содержащий нулевые элементы. Напишите программу, которая позволяет переписать элементы массива Х в...
1 массив состоял из 15 элементов вещественного типа iconНазвание работы
К методологии анализа стоимостного и натурально-вещественного содержания прибыли при социализме (брошюра)
1 массив состоял из 15 элементов вещественного типа iconМ. А. Подготовка к егэ по химии 2008 ГОТОВИМСЯ К егэ по химии ахметов м. А. Урок
Периодический закон и периодическая система химических элементов Д. И. Менделеева. Радиусы атомов, их периодические изменения в системе...
1 массив состоял из 15 элементов вещественного типа iconInorganic geochemistry
Рассмотрено влияние структурных, термодинамических, кинетических и кристаллохимических факторов на распределение химических элементов...
1 массив состоял из 15 элементов вещественного типа iconУрок упражнение по теме «Соединения химических элементов»
Цели: обобщить и систематизировать полученные знания о соединениях химических элементов
1 массив состоял из 15 элементов вещественного типа iconДокументы
1. /max элемент и его индекс (одном. массив).txt
2. /max...

Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов