Предмет: Информатика,
автор: irb67887
ДАЮ 35 БАЛЛОВ ПОМОГИТЕ С ИНФОРМАТИКОЙ ПАСКАЛЬ 9 КЛАСС
Получено 9 целых чисел `(x1–x9)`. Известно, что одно из них отлично от 8 других, равных между собой. Вывести это число. Алгоритм должен выполнять не более 1 операций сравнения.
Ответы
Автор ответа:
1
Ответ:
var v,s,sm:integer;
x:array[0..8] of integer;
begin
for var i:=0 to 8 do
begin
write('Введите число x',i+1,' = '); readln(x[i]);
end;
for var i1:=0 to 7 do
begin
if x[i1] = x[i1+1] then v:=x[i1];
s:= s+x[i1];
end;
s:= s+x[8];
sm:= s-(v*8);
write('Число отличающиеся - ',sm);
end.
var v,s,sm:integer;
x:array[0..8] of integer;
begin
for var i:=0 to 8 do
begin
write('Введите число x',i+1,' = '); readln(x[i]);
end;
for var i1:=0 to 7 do
begin
if x[i1] = x[i1+1] then v:=x[i1];
s:= s+x[i1];
end;
s:= s+x[8];
sm:= s-(v*8);
write('Число отличающиеся - ',sm);
end.
x:array[0..8] of integer;
begin
for var i:=0 to 8 do
begin
write('Введите число x',i+1,' = '); readln(x[i]);
end;
for var i1:=0 to 7 do
begin
if x[i1] = x[i1+1] then v:=x[i1];
s:= s+x[i1];
end;
s:= s+x[8];
sm:= s-(v*8);
write('Число отличающиеся - ',sm);
end.
var v,s,sm,i,i1:integer;
x:array[0..8] of integer;
begin
for i:=0 to 8 do
begin
write('Введите число x',i+1,' = '); readln(x[i]);
end;
for i1:=0 to 7 do
begin
if x[i1] = x[i1+1] then v:=x[i1];
s:= s+x[i1];
end;
s:= s+x[8];
sm:= s-(v*8);
write('Число отличающиеся - ',sm);
end.
x:array[0..8] of integer;
begin
for i:=0 to 8 do
begin
write('Введите число x',i+1,' = '); readln(x[i]);
end;
for i1:=0 to 7 do
begin
if x[i1] = x[i1+1] then v:=x[i1];
s:= s+x[i1];
end;
s:= s+x[8];
sm:= s-(v*8);
write('Число отличающиеся - ',sm);
end.
Попробуй последний код
работае
работает* спасибо большое
Похожие вопросы
Предмет: Английский язык,
автор: verunyaradiono
Предмет: Математика,
автор: svetikkib00
Предмет: Геометрия,
автор: strawberryjuice
Предмет: Математика,
автор: Тори59
main.pas(9,10) Fatal: Syntax error, ":=" expected but "identifier I" found