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

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

Question

Информатика

Таисьюшка

26 марта, 20:44

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

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

+1

Ответы (1)

Знаете ответ?

Борислава · 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.