Категория
Информатика, опубликовано 06.06.2020 22:00

ответе на все во

Ответы

Ответ
Ответ оставил: Гость

какие

Объяснение:

Ответ
Ответ оставил: Гость
1)
program Ok;
const n = 10;
var
A:array[1..n] of real;
sum:real;
i:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
sum:=sum/n;
for i:=1 to n do
begin
if(A[i]<sum) then
writeln(A[i]);
end;
end.
2)
program Ok;
const n = 10;
varA:array[1..n] of real;
sum:real;
i,k:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
if (i mod 2 = 1) then
sum:=sum+A[i];
if (i mod 2 = 1) then
k:=k+1;
end;
sum:=sum/k;
write(sum);
end.
Ответ
Ответ оставил: Гость
Иппррмпаноиаенримииитттиаалиштп5в3агт
Ответ
Ответ оставил: Гость
Хуйвыввввввввырр рпаври рнввлд


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по информатике: ответе на все во... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube