Вопрос по информатике:
Помогите )
Надо сделать отчет !!
Program prog;
uses crt;
var a:array[1..10] of integer;
s,i,max, min: integer;
sr: real;
begin
clrscr;
min:=a[1];
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
s:=s+a[i];
if a[i]>max then max := a[i];
if a[i] end;
sr:=s/10;
writeln;
writeln('Сумма всех элементов массива s = ', s);
writeln('Среднее арифметическое sr = ', sr:0:1);
writeln('Max = ', Max);
writeln('Min = ', Min);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.05.2015 00:11
- Информатика
- remove_red_eye 1155
- thumb_up 23
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.