1. в целочисленной матрице размерностью 3х3 найти сумму наибольшего и наименьшего элементов матрицы паскаль2. дан массив из 10 целых чисел. написать программу нахождения количества четных элементов массива
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]
Не нашли ответ?
Похожие вопросы