Program znanija_com; const n = 5; m = 5; rnd = 9; type tArray = array[1..n, 1..m] of integer; var arr : tArray; i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer; begin randomize; writeln ('Исходная матрица:'); for i:=1 to n do begin for j:=1 to m do begin arr[i,j] := random(rnd); if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1 else sum_nch := sum_nch + 1; write(arr[i, j], ' '); end; writeln(); end; for i:=1 to n do sum_diag := sum_diag + arr[i,i]; max_num := arr[1,1]; max_index_1 := 1; max_index_2 := 1; for i:=1 to n do begin for j:=1 to m do begin if arr[i, j] > max_num then begin max_num := arr[i, j]; max_index_1 := i; max_index_2 := j; end; end; end; writeln('Колечество четных элементов равно ', sum_ch); writeln('Колечество нечетных элементов равно ', sum_nch); writeln('Сумма главной диаганили равна ', sum_diag); writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']'); readln(); end.
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.