Вопрос по информатике:
Задача паскаль
random (50)
Найти:
массив [0..20]
сумма всех элементов
максимальный элемент
элемент=10
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.09.2017 07:31
- Информатика
- remove_red_eye 3658
- thumb_up 16
Ответы и объяснения 2
var a:array[1..n] of integer;
max,s,k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
max:=a[1]; s:=0; k:=0;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
s:=s+a[i];
if a[i]=10 then k:=i;
end;
writeln('max = ',max,' s = ',s);
if k>0
then writeln('Элемент = 10 имеет номер ',k)
else writeln('В массиве нет элемента = 10');
end.
Пример:
13 47 29 31 34 5 37 35 3 40 10 42 15 3 3 26 36 14 16 43
max = 47 s = 482
Элемент = 10 имеет номер 11
- 23.09.2017 14:39
- thumb_up 45
- 24.09.2017 08:20
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.