Дан целочисленный массив из 30 элементов, все элементы которого –неотрицательные числа, не превосходящие 10000.опишите на языке или на одном из языков программирования ал- горитм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «таких чисел нет». исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. паскаль естественный язык constn=30; vara: array [1..n] of integer; i, j, min: integer; begin for i: =1 to n do readln(a[i]); end. объявляем массив aиз 30элементов. объяв- ляемцелочисленные переменные i, j, min. в цикле от 1 до 30 вводимэлементы массива aс 1-го по 30-й. в качестве ответа вам необходимо фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. вы можете записать ре- шение также на другом языке программирования (укажите название и используемую версию языка программирования, например, borland pascal 7.0) или в виде блок-схемы. в этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке)
Ответы
{можно решать несколькими способами. одним из возможных способов является перебор всех четырехзначных чисел и проверка для каждого из них выполнения условий. попробуем сократить перебор, для этого преобразуем второе условие: 10а+b-(10c+d)=a+b+c+d; 9(a-c)=2(c+d); (a-c)/(c+d)=2/9 проанализировав первое условие, получаем, что а=с+2, d=9-c, следовательно 0< =c< =7.} program prim4; uses crt; var a,b,c,d: integer; begin clrscr; for c: =0 to 7 do begin a: =c+2; d; =9-c; for b: =0 to 9 do begin if (b< > c)and(b< > a)and(b< > d) then write(a,b,c,d); writeln end; end; readln; end. {таким образом, мы решили , значительно сократив перебор. }
Var n, i, d: integer; found: boolean; begin d: =1; found: =false; writeln('введите целое число больше единицы'); readln(n); if n mod 2 = 0 then d : = n div 2 else begin i: =(n div 2)-1; while (found=false) and (i > 2) do begin if n mod i = 0 then begin found: =true; d: =i; end; i: =i-1; end; end; if d=1 then writeln('введённое число оказалось простым') else writeln('наибольший целый делитель введённого числа равен ',d); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Перетворіть ієрархічну структуру на таблицю
Автор: karinasy4ewa
Без чего нельзя сделать сталь?
Автор: Georgievich-Zamudinovna2003
Проанализируй и запиши правильные ответы.
Автор: inikonovich
Организовать вывод элементов массива P(1:73) Pascal
Автор: Volkanovaa19
const n=5; var a: array [1..n] of integer; i, j, min: integer; begin for i: =1 to n do readln(a[i]); min: =10000; for i: =1 to n do if (a[i] div 100< > 0) and (a[i]< min) then min: =a[i]; writeln(min); end.