Дан массив целых чисел из 12 элементов. К сумме первых 8 прибавить произведение последних 7 элементов.
10-11 класс
|
var a: array[1..12] of integer;
i,s,p :integer;
begin
for i:=1 to 12 do read (a[i]);
s:=o; p:=1;
for i:=1 to 8 do s:=s+a[i];
for i:=6 to 12 do p:=p*a[i];
write('Искомый результат = ', s+p);
end.
Другие вопросы из категории
в этом падеже. Например, для введенного И выведутся вопросы кто? что?
Дан символьный файл f.Группы символов,разделенные пробелами(одним или несколькими) и не содержащие пробелов внутри себя,будем называть словами.Удалить из файла все однобуквенные слова и лишние пробелы.Результат записать в файл g.
элементов массива ;
Преобразовать массив таким образом , чтобы сначала располагались все элементы , модуль которых не превышает 1 , а потом - все остальные .
Задача 2
В одномерном массиве , состоящем из n вещественных элементов , вычислить ;
!) минимальный по модулю элемент массива ;
2) сумму модулей элементов массива , расположенных после первого элемента , равного нулю .
Преобразовать массив таким образом , чтобы в первой его половине располагались элементы в четных позивиях , а во второй половине - элементы , стоявшие в нечетных позициях.
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .