1. Информатика
  2. Написать программу на pascal

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

arinasmail1 arinasmail1    1   22.05.2019 02:50    0

Ответы
temik2005ap08ttx temik2005ap08ttx  17.06.2020 03:27

uses crt;
var a:array[1..1000] of integer;
i,max,n:integer;
begin
clrscr;
write('n<1000, n=');
read(n);

writeln('a[i]<30000, a[i]:');
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 10=3) and (a[i]>max) then max:=a[i];
end;
write('max=',max);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
fgk200 fgk200  17.08.2019 12:40
8. отметьте устройства, предназначены для ввода информации в компьютер. а) принтер; б) процессор; в) монитор; г) сканер; д) графопостроитель; е) джойстик; ж) клавиатура; з) мышь;...
карина1958 карина1958  17.08.2019 12:40
Может ли одна информационная модель описывать различные оригиналы? ответ подтвердите примерами...
Максоон20022 Максоон20022  29.11.2020 21:37
Известно, что каждая страница текста содержит в среднем 32 строки по 32 символа и состоит из 48 страниц. Для хранения символа используется алфавит мощностью 256 символов. Определите...
yana3657 yana3657  29.11.2020 21:37
Реалізуйте виведення дати на вказаній мові (мова вказується 2-х значним кодом, наприклад:ru, uk, en) у форматі: Реализуйте вывода даты на указанном языке (речь указывается 2-х...
CloudSmile CloudSmile  29.06.2019 05:30
Нужна с информатикой! в файле записано не более 100 целых чисел вывести в другой текстовый файл те же числа отсортированные в порядке возрастания...
05Дарья50 05Дарья50  29.06.2019 05:30
1. найти объём видеопамяти с разрешающей экрана 1152*864 точек и глубиной цвета 8 битов. 2. найдите информационный объём изображения размером 50,8*30,48 см с разрешением 100 ppi...
iwaly2009 iwaly2009  16.12.2020 16:54
Только правильно чтоб было....
YanaDovgik YanaDovgik  16.12.2020 16:56
Чиї можливості описано «може читати і редагувати документ, зберігати його копію на своєму комп’ютері, а також видаляти і додавати нових співавторів» це… Виберіть одну відповідь:...
deniskim01 deniskim01  10.05.2020 14:20
Б) Построй углы на 10° меньше данных.​...
abeloglazova891 abeloglazova891  10.05.2020 14:20
У першому кошику 12,7 кг картоплі, у другому — 25,5 кг, що в півто-ра раза менше, ніж у третьому. На скільки кілограмів картоплі меншев другому кошику, ніж у третьому?​...

Популярные вопросы