Написать программу на pascal ( из гиа). заранее огромное - вопрос №1700478 от 12oskar12oskar 04.04.2023 12:47

Question

Информатика: Написать программу на pascal ( из гиа). заранее огромное . напишите программу, которая в последовательности натуральных чисел определяет максимальное число оканчивающееся на 3. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число - максимальное число, оканчивающееся на 3.

12oskar12oskar · Answer

uses crt;var a:array[1..1000] of integer;i,max,n:integer;beginclrscr;write( n 1000, n= );read(n); writeln( a[i] 30000, a[i]: );for i:=1 to n dobeginreadln(a[i]);if (a[i] mod 10=3) and (a[i] max) then max:=a[i];end;write( max= ,max);end....