Предмет: Информатика,
автор: tonyrois0
Помогите написать программу на языке Паскаль для нахождения среднего значения из n введенных целых чисел от 10 до 100. Можете сразу вставить числа
Ответы
Автор ответа:
1
var n,i,a,s:integer;
begin
write('n=');
readln(n);
s:=0;
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
begin
readln(a);
if a<0 thn s:=s+a;
end;
write('Сумма отрицательных=',s);
end.
fominyfomin:
какое-то еврейское решение)
Автор ответа:
1
var
a,b,c,d,e:integer
begin
read(n);
for c:=1 to n
begin
read(a);
b:=a+b
e:=1+e
end;
write(b/e);
end.
Похожие вопросы
Предмет: Алгебра,
автор: Maslenook8500
Предмет: Математика,
автор: tkhasou6718
Предмет: Русский язык,
автор: kamaletdinovandrej98
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: муртузаева