1. в целочисленной матрице размерностью 3х3 найти сумму наибольшего и наименьшего элементов матрицы паскаль 2. дан массив из 10 целых чисел. написать программу нахождения количества четных элементов массива
Const n=3; var a:array[1..n,1..n] of integer; i,j,s,max,min:integer; begin max:=-32767; min:=32767; for i:=1 no n do for j:=1 to n do begin readln(a[i,j]); if a[i,j]>max then max:=a[i,j]; if a[i,j]<min then min:=a[i,j]; end; writeln(max+min) end.
Честно говоря, какой-то странный код. Во-первых, после 0 (во второй строке) должно стоять двоеточие и, во-вторых, лично у меня функции записаные с большой буквы, не работают. Как я понимаю, эта программа должна искать чётные числа от 0 до 10 (мне выдаёт 2,4,6,8,10). Она работает так: благодаря цыклу for переменной i надаётся значение от 0 до 9 (функцией range(10)). Дальше проверяется есть ли число i чётным (i%2==0). Функция not по сути делает противоположное: проверяет есть ли это число нечётным. Тогда если оно нечётнон, выводится на екран число на один больше него (т.е. чётное).
Я бы написал эту программу так:
for i in range(1, 11): if i % 2 == 0: print(i)
По сути она выводит то же самое, но код немного менше и понятней.
P.S. Эти программы не выдают в ответе 0, хотя 0 - тоже парное число. Чтобы она выдавала еще и 0, просто надо убрать первый аргумент функции range():
for i in range(11): if i % 2 == 0: print(i) Тогда она выведет 0,2,4,6,8,10.
Делим 27 монет на три кучки по 9 монет в каждой. Две любые из этих кучек сравниваем. Которая легче, та и содержит фальшивую. Если две кучки равны по весу, то фальшивая в третьей. Это первое взвешивание, по результатам которого нашли кучку из 9 монет, в которой фальшивая.
Далее кучку из 9 монет делим на три кучки по три монеты, и две любые из этих двух кучек взвешиваем. Принцип тот же, находим кучку из трёх монет, в которой фальшивая. Это второе взвешивание.
Осталось 3 монеты. Две любые из них взвешиваем, и конкретно узнаём фальшивую. Это третье взвешивание. Трёх достаточно.
var a:array[1..n,1..n] of integer;
i,j,s,max,min:integer;
begin
max:=-32767;
min:=32767;
for i:=1 no n do
for j:=1 to n do
begin
readln(a[i,j]);
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln(max+min)
end.