Const n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
if a[i] = int(a[i]) then
begin
k:=k+a[i];
inc(m);
end;
//находим среднее арифметическое
s := k/m;
writeln(s);
<span>end.</span>
Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638
Program xxx;
var rost,ves,resultat:real;
begin
Writeln('Добро пожаловать в калькулятор веса.');
Write('Введите ваш вес:'); read(ves);
Write('Введите ваш рост:');
read(rost);resultat:=rost-100;
Write('Итог: Ваш вес: ' ,ves);
Writeln('Ваш рост: ' ,rost);
Write('Ваш нормальный вес(+-5):' ,resultat);
<span>end.</span>
Id 1
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
Курсор - это чем ты управляеш компьютером.Курсор предназначен для управления компьтером.Переместить в тексте его на надо кликнуть на любое место текста куда ты хочеш исправить!Надеюсь я помог))