1. в целочисленной матрице размерностью 3х3 найти сумму наибольшего и наименьшего...

Question

1. в целочисленной матрице размерностью 3х3 найти сумму наибольшего и наименьшего элементов матрицы паскаль

2. дан массив из 10 целых чисел. написать программу нахождения количества четных элементов массива

Answer 1

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]end;
writeln(max+min)
end.