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.
Type tBook = record author: string[20]; title: string[30]; year: integer end;
var f1: file of tBook;
function k2000(): integer; { файл должен быт открыт на чтение } var k: integer; book: tBook; begin while not Eof(f1) do begin Read(f1, book); if book.year < 2000 then k := k + 1 end; k2000 := k end;
var B: tbook;
begin Assign(f1, 'books.000'); Rewrite(f1); Writeln('Для книги вводите в трех строках: автор, название, год издания'); Writeln('Введите * для завершения ввода'); repeat Readln(B.author); if B.author[1] <> '*' then begin Readln(B.title); Readln(B.year); Write(f1, B) end until B.author[1] = '*'; Close(f1); Write('Количество книг, изданных до 2000г равно '); Reset(f1); Writeln(k2000); Close(f1) end.
Пример диалога с программой: Для книги вводите в трех строках: автор, название, год издания Введите * для завершения ввода Александр Грин Бегущая по волнам 1984 Эдгар Аллан По Золотой жук 2002 Луи Буссенар Капитан Сорви-голова 1997 Гарри Гаррисон Крыса из нержавеющей стали 2007 А. и Б. Стругацкие Сказка о Тройке 1974 * Количество книг, изданных до 2000г равно 3
print('{:X}'.format(int(input(), 2)))