// PascalABC.NET 3.0, сборка 1128 procedure DeleteRow(var a:array[,] of integer; r:integer); begin var rows:=a.GetLength(0); var cols:=a.GetLength(1); for var i:=r to rows-2 do for var j:=0 to cols-1 do a[i,j]:=a[i+1,j]; SetLength(a,rows-1,cols) end;
begin var b:array[,] of integer:=((1,2,3,0),(5,6,0,8), (9,10,11,12),(13,0,15,16),(17,18,19,20)); Writeln('Исходный массив: ',b); var n:=b.GetLength(0); var m:=b.GetLength(1); // удаляем строки без нулевых элементов for var i:=n-1 downto 0 do begin var FoundZero:=False; for var j:=0 to m-1 do if b[i,j]=0 then begin FoundZero:=True; Break end; if not FoundZero then DeleteRow(b,i) // удалить строку end; Writeln('Результирующий массив: ',b); end.
Var a, sum, i : integer; s, x : string; sa : real; begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.
Var a:array [1..10] of integer; i,k1,k2:integer; begin for i:= 1 to 10 do a[i]:= Random(20,100); writeln(a); for i:=1 to 10 do if a[i] mod 2 = 0 then k1:=k1+1 else k2:=k2+1; writeln('Чётных элементов: ',k1); writeln('Нечётных элементов: ',k2) end.