D:\Школа\Ученики\Адреса\Успеваемость\Нарушения
Как помочь? фотку прикрепил бы..
Например если это число 123456, то 2*4*6=48
Var g1, g2, g3: real;
begin
writeln('Введи три числа: ');
readln(g1, g2, g3);
if not ((g1 = 9.8) or (g2 = 9.8) or (g3 = 9.8)) then Writeln('Нет среди этих чисел ускорения на Земле') else begin
if g1 = 9.8 then Writeln('Первое - ускорение на Земле');
if g2 = 9.8 then Writeln('Второе - ускорение на Земле');
if g3 = 9.8 then Writeln('Третье - ускорение на Земле');
end;
<span>end.</span>
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.