Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці
var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;
begin
P:=1;
For i:=1 to 4 do
For j:=1 to 6 do
Write('Введіть значення елемента масиву ');
Read(Tabl[i,j]); //заповнення масиву цілими числами
end;
For i:= 1 to 4 do
P:= P * Tabl[i,2]; //умножение элементов второго столбца
writeln('Произведение элементов второго столбца= ',P);//виведення відповіді
end. //Кінець програми
Объяснение:
Изменено имя программы и переменной (чтобы не путаться)
Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется
Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце
Комментарии изменены, где необходимо, но на русском
begin
pos := 0;
neg := 0;
null := 0;
writeln('Введите N:');
readln(n);
writeln('Введите N целых чисел:');
for i := 1 to n do
begin
read(a);
if(a < 0) then neg := neg + 1;
if(a > 0) then pos := pos + 1;
if(a = 0) then null := null + 1;
end;
writeln('Положительных чисел: ', pos);
writeln('Отрицательных чисел: ', neg);
writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3
Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці
var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;
begin
P:=1;
For i:=1 to 4 do
For j:=1 to 6 do
begin
Write('Введіть значення елемента масиву ');
Read(Tabl[i,j]); //заповнення масиву цілими числами
end;
For i:= 1 to 4 do
P:= P * Tabl[i,2]; //умножение элементов второго столбца
writeln('Произведение элементов второго столбца= ',P);//виведення відповіді
end. //Кінець програми
Объяснение:
Изменено имя программы и переменной (чтобы не путаться)
Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется
Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце
Комментарии изменены, где необходимо, но на русском