Предмет: Информатика,
автор: iralapina108
Ввести масив М[1..10]. Запишіть оператори для реалізації завдань:
1) Знайти суму лише від'ємних елементів;
2) Знайти максимальний елемент;
3) Знайти кількість додатних елементів;
4) Елементи, які менше за 15, замінити на 5.
Ответы
Автор ответа:
1
Ответ:
var a:array [1..5] of integer;
i,max,k,j: integer;
begin
Write ('Введите элементы массива: ');
for i:= 1 to 5 do
read (a[i]);
max:=a[1];
for i:= 1 to 5 do
if a[i]>max then max:=a[i];
Writeln ('Максимальный элемент: ',max);
Writeln ('Элементы с непарными индексами: ');
for i:= 1 to 5 do
if i mod 2 <>0 then write (a[i], ' ');
for i:= 1 to 4 do
for j:= i+1 to 5 do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln();
writeln ('Массив, упорядоченный в порядке убывания: ');
for i:= 1 to 5 do
write(a[i], ' ');
end.
Объяснение:
dazzle677:
держи ;)
Похожие вопросы
Предмет: Алгебра,
автор: koxaev2002
Предмет: Обществознание,
автор: gircina
Предмет: Математика,
автор: Маша6666
Предмет: Математика,
автор: Рустамыч
Предмет: История,
автор: goebatiosyaonl