Предмет: Информатика,
автор: Аноним
1. в целочисленной матрице размерностью 3х3 найти сумму наибольшего и наименьшего элементов матрицы паскаль
2. дан массив из 10 целых чисел. написать программу нахождения количества четных элементов массива
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Музыка,
автор: kiranovikova12007
Предмет: Другие предметы,
автор: MiXoN31
Предмет: История,
автор: cmoaa5352
Предмет: Биология,
автор: svetlana30dan
Предмет: Литература,
автор: dishunyalove