1. В какой стране популярен турнир по Робо-сумо? 2. Назначение роботизированных датчиков? 3. Каковы - id1751470020221130 от батя160 30.11.2022 06:27

Question

Информатика: 1. В какой стране популярен турнир по Робо-сумо? 2. Назначение роботизированных датчиков? 3. Каковы требования к роботу в матче по борьбе сумо?

батя160 · Accepted Answer

М... заморила твоя задача однако
Program asd;
USES crt;
var
A:array [1..5] of integer;
min,max,min2,o,p:real;
i,n:integer;

Procedure max1;
begin
for i:=1 to 5 do
if A[i]>0 then
if min<A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
Procedure min1;
begin
for i:=1 to 5 do
if A[i]<0 then
if min>A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
BEGIN
clrscr;
For i:=1 to 5 do
begin
A[i]:=random(9)-5;
Write(' ',A[i]);
end;
Writeln;
//Otrizanie
For i:=1 to 5 do
if A[i]<0 then o:=o+A[i];
Writeln('Summa otrizatelnyx elementov: ',o);
//Polowitelnye
For i:=1 to 5 do
if A[i]>0 then p:=p+A[i];
Writeln('Summa polowitelnyx elementov: ',p);
if p<o then max1
else min1;
END.

1. В какой стране популярен турнир по Робо-сумо? 2. Назначение роботизированных датчиков? 3. Каковы требования к роботу в матче по борьбе сумо?

MOGZ ответил