1. Найдите сумму элементов массива а из 8 элементов.
5-9 класс
|
2.
1.
const n=8;
var a:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do a[i]:=random(20);
for i:=1 to n do write(a[i]:4);
writeln;
s:=0;
for i:=1 to n do
s:=s+a[i];
write('сумма элементов массива = ',s);
end.
2.
const n=7;
var a:array[1..n] of integer;
i,min:integer;
begin
for i:=1 to n do a[i]:=random(50);
for i:=1 to n do write(a[i]:4);
writeln;
min:=51;
for i:=1 to n do
if a[i]<min then min:=a[i];
write('наименьший элемент массива = ',min);
end.
Другие вопросы из категории
не позднее 6 утра,
б) имеющих стоянку более 30 минут
в) отправляющихся из Свердловска
г) конечный пункт назначения которых не Москва.
Читайте также
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.