program Massive const p=10 var i max k integer a array[1

program Massive; const p=10; var i,max,k:integer; a:array[1..p] of integer; BEGIN writeln(‘Введите ‘,p,’ элементов массива А:’); for i:=1 to p do read(a[i]); writeln(‘Найдем максимальный по модулю элемент массива’); max:=abs(a[1]); for i:=2 to p do if abs(a[i])>max then max:=abs(a[i]); writeln(‘max=’,max); writeln(‘Определим количество таких максимумов’); for i:=1 to p do if abs(a[i])=max then k:=k+1; writeln(‘k=’,k) end. Название программы Раздел описания констант Раздел описания переменных Начало программы Вывод комментария В цикле вводим с клавиатуры элементы массива Вывод комментария Пусть максимум – это модуль первого В цикле с параметром по i c помощью условного оператора сравниваем модули элементов с макcимальным Выводим на экран максимум Вывод комментария Снова в цикле перебираем элементы массива и накапливаем в сумму те, модуль которых равен Max Результаты работы:

Тип работы:

Контрольная работа

Предмет:

Информатика

Статус:

выполнено

Стоимость. Рублей:

100

Дата выполнения:

2015-06-01

Understand your user experience

I am text block. Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec ullamcorper mattis, pulvinar dapibus leo.

Read More

remain responsive across devices

I am text block. Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec ullamcorper mattis, pulvinar dapibus leo.

Read More

fall in love with our features

Real time stats

Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec mattis, pulvinar dapibus leo.

Multilingual & translatable

Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec mattis, pulvinar.

Less plugins needed

Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec mattis, pulvinar dapibus leo.

Amazingly responsive

Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec mattis, pulvinar dapibus leo.

Community builder

Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec mattis, pulvinar dapibus leo.

Easy to use interface

Click edit button to change this text. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec mattis, pulvinar dapibus leo.

Выполним любую работу на заказ

У нас вы можете заказать уникальное решений этой задачи или любой другой

Adblock detector