В массиве, содержащем 15 элементов, найти сумму элементов, абсолютная величинакоторых отличается от заданного числа более чем на 6. Среди остальных
10-11 класс
|
элементовнайти минимальный элемент и его индекс.
uses crt;
const n=15;
var
a: array [1..n] of integer;
sum,min,i,x,j: integer;
begin
clrscr;
sum:=0;
min:=0;
write ('Array: ');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write (a[i],' ');
end;
writeln ();
write ('x=');
readln (x);
for i:=1 to n do
begin
if abs(a[i])=x then
sum:=sum+a[i]
else
if min>a[i] then
begin
min:=a[i];
j:=i;
end;
end;
writeln ('sum=',sum);
writeln ('min=',min);
writeln ('index=',j);
readln ();
end.
Комментарий удален
Другие вопросы из категории
полученную строки.Напишите,пожалуйста,программу.Составить программу в паскале.
Читайте также
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
элементов; 3) сумму элементов которые делятся на 3; 4) минимальный и максимальный элемент. (используя procedure или function, но чтоб была рекурсия)ПОЖАЛУЙСТА ПОМОГИТЕ ВОПРОС ЖИЗНИ И СМЕРТИ!!
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
соответствующего элемента исходного массива. в полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива. выведите на экран исходные и полученные результаты