Предмет: Информатика, автор: Аноним

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

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

Ответы

Автор ответа: aiD2
0
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.
Похожие вопросы
Предмет: Другие предметы, автор: MiXoN31
Предмет: Биология, автор: svetlana30dan