Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
    Begin
    Write((12*K-21)/3,' ');
    if (12*K-21)/3 > 0 then
       Begin
       S:=S+(12*K-21)/3;
       n:=n+1
       End;
    End;
WriteLn;
Write('Sr = ',S/n)
End.

0 0

4 года назад

Вычислить сумму и произведение десяти элементов массива введенных пользователем с клавиатуры.

Инночка12 [183]

Var
a: array[1..10] of integer;
i, p, s: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1; s:=0;
for i:=1 to 10 do
begin
p:=p*a[i];
inc(s, a[i]);
end;
writeln(s);
writeln(p);
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите ответить на два вопроса предмет информатика 1.Какие клавиши используют для введения букв.Где они находятся?2.Что означа

Veldan

1. Клавиши клавиатуры.
2. Нажать на левую кнопку мыши и быстро отпустить

0 0

4 года назад

Папа поставил на скачивание файл и определил , что закачка займет 20 минут . когда файл папы был скачан на 20\% , мама поставила

Elenangele [31]

Мне кажется, что в)12.

0 0

4 года назад