K:=0
sum:=0
for i:=1 to 10 do
begin
if m[i]<0 then
begin
k:=k+1;
sum:=sum+m[i];
end;
end;
writeln(sum/k);
end.
Ответ:
Объяснение:актуальность это когда что то на какое то время хорошо идет например гучи гэнг песня она была актуальна в время когда её выпустили в сейчас она уже не актуальна так вот дальше точность это когда есть какое то метрическое значение и оно может увеличиваться и уменьшаться в геометрических проэкциях пример точность бывает в стрельбе из лука когда стрела попадает не в цель то есть область поражения дальше объективность это определение есть в интернете а пример когда ты высказываешь своё мнение о чём либо
Program enot;
Var a: array [1..6] of integer;
i,p:integer;
begin
for i:= 1 to 6 do
a[i]:= random(13)+5;
for i:= 1 to 6 do
write(a[i]:4);
writeln();
p:=a[5];
a[5]:=a[6];
a[6]:=p;
a[4]:=a[4]*3;
for i:= 1 to 6 do
write(a[i]:4);
<span>end.</span>
//C++ - язык програмирования(не Pascal)
#include <iostream> //чтобы выводить на экран
int main() //тело программы
{
int a,b; //те числа(объявление переменных)
std::cin>>a; //ввод первого числа
std::cin>>b; //ввод второго числа
std::cout<<((int)(a/b))<<std::endl; //(int)х - преобразовать х в целое число(отбросить //дробную часть)
//std::cout<< - вывод
//std::endl - переход на следующию строчку
system("PAUSE"); //чтобы программа сразу не завершалась
return 0;
}
// // - коментарий
P.S ответь, пожалуйста, на моё сообщение.
1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.