1) Від чого залежить успіх виступу із презентацією? 2) Як варто виступати перед глядачами із презентацією? 3) Чому для виступу із презентацією готують демонстраційні матеріали? 4) Які параметри друку можно налаштувати?
Const n=10; m=10; var a: array[1..n,1..m] of integer; b: array[1..n] of integer; i,j,k: integer; begin; k:=0; writeln ('Двумерный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100)-50; write (a[i,j]:4); if (a[i,j]<0) and (abs(a[i,j] mod 2)=1) then k:=k+1; end; writeln; b[i]:=k; k:=0; end; writeln; writeln ('Сформирован одномерный массив:'); for i:=1 to n do write (b[i]:3); end.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.Select(x->x.Where(y->(y<0) and y.IsOdd).Count); b.Println; end.