Программа:
Pascal:
var
chemodan, klad, dop: real;
begin
write('Вес чемодана', #10, '<<< '); readln(chemodan);
write('Вес ручной клади', #10, '<<< '); readln(klad);
write('Вес доп. предметов ручной клади', #10, '<<< '); readln(dop);
writeln('Вес багажа: ', chemodan + klad + dop);
end.
Python:
chemodan = float(input('Вес чемодана\n>>> '))
klad = float(input('Вес ручной клади\n>>> '))
dop = float(input('Вес доп. предметов ручной клади\n>>> '))
print('Вес багажа:', chemodan + klad + dop)
for j:=1 to n do
begin
for i:=1 to m do
if a[i,j] = c (где с - заданное значение)
then k++;
b[j]:=k;
k:=0;
end;
обратите внимание на индексацию! двумерный массив мы должны пройти не горизонтально (по строкам), как обычно, а по столбцам.