program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>
В моем ответе поговорка слегка изменена: ложь до добра не доводит с:
C++
P.s структура - struck - похоже на класс. Тебе даны МАССИВЫ.
int main(){
int U[7];
int D[7];
int V[7];
int all = 0;
for(int i = 0; i < 7;i++){
all += U[i];}
for(int i = 0; i < 7;i++){
all += D[i];}
for(int i = 0; i < 7;i++){
all += V[i];}
all /= 21;
cout << all;
};
Держи напиши слово а слово и получишь 9 из 9