program massiv;
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
i: integer;
max: integer;
counter: integer;
begin
max:=0;
counter:=0;
for i:=1 to Sz do begin
a[i] := random(26) + 10;
if a[i] > max then begin
max := a[i];
end;
end;
writeln('Элементы массива: ');
for i:=1 to Sz do begin
write(a[i],' ');
if a[i] = max then begin
counter := counter + 1;
end;
end;
writeln('');
writeln('Максимальный элемент: ', max);
writeln('Кол-во таких элементов ', counter);
end.
Объяснение:
program massiv;
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
i: integer;
max: integer;
counter: integer;
begin
max:=0;
counter:=0;
for i:=1 to Sz do begin
a[i] := random(26) + 10;
if a[i] > max then begin
max := a[i];
end;
end;
writeln('Элементы массива: ');
for i:=1 to Sz do begin
write(a[i],' ');
if a[i] = max then begin
counter := counter + 1;
end;
end;
writeln('');
writeln('Максимальный элемент: ', max);
writeln('Кол-во таких элементов ', counter);
end.
Объяснение:
Напомним, что для игры в шахматы используется доска размером 8х8. При этом горизонтальная координата нумеруется английскими буквами от «A» до «H», а вертикальная – цифрами от 1 до 8 снизу вверх. Таким образом, координата клетки состоит из буквы и цифры. Например, «H1» и «A8» – правый нижний и левый верхний углы соответственно.
Всего существует 6 шахматных фигур: ладья, слон, конь, ферзь, король и пешка. Опишем правила выполнения хода без взятия на свободной доске:
король ходит на расстояние 1 по вертикали, горизонтали или диагонали;
ферзь ходит на любое расстояние по вертикали, горизонтали или диагонали;
ладья ходит на любое расстояние по вертикали или горизонтали;
слон ходит на любое расстояние по диагонали;
к