Vonesnik 26 ноября 2019 в 07:21
Найти наибольший из элементов ,кратных 3,заданного целочисленного массива X=(x1,x2,...xN).(Паскаль)
Найти наибольший из элементов ,кратных 3,заданного целочисленного массива X=(x1,x2,...xN).(Паскаль)
Входные и выходные данные напишите, возможно я не понял задачу.
Данная программа считывает n, затем считывает множество чисел x1,x2,x3,...,xN и вы видите самое большое число делящееся на 3
var x,i,n,ma:integer;beginread(n);for i:=1 to n do begin read(x); if (xgt;ma) and ((x mod 3)=0) then ma:=x; end;writeln(ma);end.
Данная программа считывает n, затем считывает множество чисел x1,x2,x3,...,xN и вы видите самое большое число делящееся на 3
var x,i,n,ma:integer;beginread(n);for i:=1 to n do begin read(x); if (xgt;ma) and ((x mod 3)=0) then ma:=x; end;writeln(ma);end.
Компьютеры и вычисления
453
0
Для комментирования необходимо зарегистрироваться на сайте