В массиве из 10 целых чисел подсчитать сумму
10-11 класс
|
элементов, стоящих правее минимального. на паскале
uses crt;
const n=10;
var a:array[1..n] of integer;
s,i,min,k:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then begin min:=a[i]; k:=i; end;
end;
s:=0;
for i:=k+1 to n do
s:=s+a[i];
writeln(s);
end.
Другие вопросы из категории
пассивного разветвителя.
1) терминатор
2) активатор
3) концентратор
4) адаптер
5) коннектор
процедура P1 вводит с клавиатуры длину стороны квадрата;
функция F1 вычисляет площадь квадрата;
Процедура P2 выводит на экран результат.
процедура P1 и функции F1 - встроенный в программу
процедура P2 - записывается как отдельный модуль подключаемый к основной программе.
в паскале
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Подсчитайте количество нулевых элементов в массиве из 10 целых чисел и распечатайте исходный массив в обратном порядке.
превышает число 3.