Короче, смотри 1 + 1 = 5 + 1 выполняется Else(В данном коде у тебя ничего не происходит), пошли по кругу, 1 + 2 = 5 + 1 снова выполняется Else, и т.д, пока не будет 1 + 5 = 5 + 1 тогда здесь уже выполняется Then, а именно число которые стоит в позиции i = 1 и j = 5 (i - это строки)(j - это столбцы) например там стоит число 20 то уже будет 21.
1 ) A$2+ 2*B2 = 1+ 2*2=1+4=5
то есть в ячейке будет записано число 5
2) А$1+B$1=10+20=30
в ячейке будет записано число 30
var
v,a,b,c: real;
begin
writeln ('введи длину, ширину и высоту коробки');
read (a,b,c);
v:=a*b*c;
writeln ('объем коробки равен', v);
end.
Само собой, числа a1..an надо поместить в массив. Если его упорядочить по возрастанию (или убыванию), то элементы с одинаковыми значениями окажутся рядом и их легко будет пропустить.
var
a:array[1..n] of integer;
i,j,t:integer;
begin
{ инициализация массива }
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
end;
Writeln;
{ сортировка по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
{ вывод неповторяющихся значений }
Writeln('Уникальные значения элементов');
t:=a[1]; Write(t:3);
for i:=2 to n do
if a[i]<>t then begin t:=a[i]; Write(t:3) end;
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
9 6 1 6 1 4 5 9 1 2 6 7 7 6 1 7 7 8 0 8
Уникальные значения элементов
0 1 2 4 5 6 7 8 9
Ответ:
вүщемвмш овглмвпгвииащглагмплгмпмвшмвш
