// PascalABC.NET 3.1, сборка 1246 от 23.05.2016 begin var s:=ReadAllLines('1.txt'); Writeln('Считано:'); s.Println(NewLine); var a:=s.Select(x->x.Replace(';',' ')).ToArray .JoinIntoString.ToReals.Where(x->(x>0) and (Frac(x)=0)) .Select(x->Trunc(x)).ToArray; Writeln('Получено:'); a.Println(); Writeln('Справочно: тип А - ',a.GetType); end.
Тестовое решение Считано: 1;-312;-41.11;412.11 43.63;-15;27;7.62;3;-14 1342;23.23;-32.19;18 Получено: 1 27 3 1342 18 Справочно: тип А - System.Int32[]
var i, j: integer; a, b: array[1..n, 1..m] of integer;
begin for i := 1 to n do begin for j := 1 to m do begin a[i, j] := random(20) - 10; write(a[i, j]:3, ' '); end; writeln; end; writeln;
for i := 1 to n do begin for j := 1 to m do begin if ((i + j) mod 2 = 1) and (a[i, j] < 0) then a[i, j] := sqr(a[i, j]); write(a[i, j]:4, ' '); end; writeln; end; end.