Используя средства Scilab, постройте график функции f(x)=2 sin⁡( 4x)-5 cos⁡( 7x) на отрезке [0; 3]

ответ: у тебя не правильное .в начале нужно найти максимальное число не оканч.на 3 , а потом вывести макс. число оканчивающееся на 3.ты разберись. но если ты шаришь в икт и просто не знаешь , как задать условие ,то там нужно через целые и кратные (div/mod) в твоем случае будет как-то так

if a mod 10=3 and a> max then max: =a

ну если ты ленивая жо#а то вот:

var a,b,k,max: integer;

begin

writeln('введите количество чисел > > n ');

readln(n);

max: =0;

for k: = 1 to n do;

begin

writeln('введите числа > > a ');

readln(a);

if (a mod 10=3) and (a> max) then max: =a

end;

writeln('самое больше число оканчивающееся на 3 -',max)

end.

в полной правильности я не уверен(т.к у меня нету паскаля),проверь компилятором

//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    begin
        writeln;
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
            write(a[i, j], ' ');
    end;
    writeln;
end;

begin
    var a := MatrixRandom(9, 9, 10, 99);
    PrintMatrix(a);
    var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2;
    var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2;
    writeln('A[', i, ', ', j, '] = ', a[i, j]);
end.