Const maxElements = 1000; var arr : array[1..maxElements, 1..maxElements] of integer; counterArray : array[1..maxElements] of integer; i, j, n, m, countOfPositive: integer; begin write('Введите количество строк: '); readln(n); write('Введите количество столбцов: '); readln(m); writeln('Введите элементы массивы'); for i:=1 to n do for j:=1 to m do read(arr[i,j]);
countOfPositive := 0; for j:=1 to m do begin for i:=1 to n do if arr[i,j] > 0 then Inc(countOfPositive); counterArray[j] := countOfPositive; countOfPositive := 0; end; writeln('Количество положительных элементов в каждом столбце'); for j:=1 to m do write(counterArray[j], ' '); end.
// PascalABC.NET 3.0, сборка 1073 var i,n:integer; s:string; begin Write('Введите свое имя: '); Readln(s); if s[1]='И' then begin n:=Length(s)-1; s:=s[1]; for i:=1 to n do s:=s+'*' end; Writeln('Результат работы: ',s) end.
Тестовое решение: Введите свое имя: Игорь Результат работы: И
Введите свое имя: Сергей Результат работы: Сергей
2. Решение, каким оно должно быть, но этому не учат
// PascalABC.NET 3.0, сборка 1073 begin var s:=ReadString('Введите свое имя: '); if s[1]='И' then s:=s[1]+StringOfChar('*',Length(s)-1); Writeln('Результат работы: ',s) end.
maxElements = 1000;
var arr : array[1..maxElements, 1..maxElements] of integer;
counterArray : array[1..maxElements] of integer;
i, j, n, m, countOfPositive: integer;
begin
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m); writeln('Введите элементы массивы');
for i:=1 to n do
for j:=1 to m do
read(arr[i,j]);
countOfPositive := 0;
for j:=1 to m do
begin
for i:=1 to n do
if arr[i,j] > 0 then Inc(countOfPositive);
counterArray[j] := countOfPositive;
countOfPositive := 0;
end;
writeln('Количество положительных элементов в каждом столбце');
for j:=1 to m do
write(counterArray[j], ' ');
end.