Const
m=5;
n=3;
var
i,j,k:integer;
a:array[1..m,1..n] of integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(999)+1;
Write(a[i,j]:4);
if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
end;
Writeln
end;
if k>0 then begin
Writeln('Искомые элементы');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
end
else
Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.
Пример работы программы
Исходный массив
424 672 826
546 587 413
507 211 884
252 781 518
750 656 359
Искомые элементы
424
Ну зависит от языка,в паскале - <span>read и readln и вывода write и writeln</span>
Решение:
<span>Не понятно зачем в конце выражения стоит 4, Предположу, что это (x+5)^4 </span>
<span>y'=4-4/(x+5); y'=0 </span>
<span>4-4/(x+5)=0 </span>
<span>x+5=1 </span>
<span>x=-4 полученная стационарная точка принадлежит заданному промежутку и на этом промежутке является точкой минимума </span>
<span>у (-4)=-16-0=-16</span>
Program kratno;
var a,b,sum: integer;
begin
readln (a,b);
if (a>=-9) And (b>=-9) and (a<=9) and (b<=9) then begin
sum:=a+b;
writeln (sum);
end
else
writeln ('Введенные числа не являются однозначными');
end.