profile

Опубликовано 5 лет назад по предмету Информатика от pupil97super

Помогите написать программу на Pascal (Задача из ГИА). Заранее огромное спасибо. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число - максимальное число, оканчивающееся на 3.

  1. Ответ
    Ответ дан Sky09

    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.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Danon227
Биология - 3 недели назад

Соотнесите фазы мейоза и их характеристику. профаза 1 метафаза 1 анафаза 1 телофаза 1 профаза 2 метафаза 2 анафаза 2 телофаза 2 а)гомологичные хромосомы попарно располагаются на экваторе, формируется веретено деления б)хромосомы становятся видимыми, расхожление центриолей к полюсам. происходит коньюгация кроссинговер, ядерная оболочка исчезает в) формируется ядерная оболочка, веретено деления разрушается. образуется две клетки г)возникают хромосомные рекомбинации, гомологичные хромосомы, состоящие из 2 хроматин, расходятся к полюсам д) разрушается ядерная оболочка, формируется веретено деления, каждая хромосома состоит из двух хроматид е) хроматиды отходят к противоположным полюсам ж) формируется ядерная оболочка, цитокинез, образуется 4 новых клетки з)хромосомы располагаются в плоскости экватора прошу помогите пожалуйста (

Хаааа
Математика - 1 месяц назад
Хаааа
Математика - 1 месяц назад