Регистрация
ulanachukalkina
21.10.2020 14:28
Информатика
Есть ответ 👍

ЛЮДИ РАССКАЖИТЕ ОБ ЭТАПЕ ТРЕХМЕРНОГО ИЗОБРАЖЕНИЯ "СЪЕМКА"(2-3ПРЕДЛОЖЕНИЯ НИГДЕ НЕ МОГУ НАЙТИ ОТВЕТ!!!!
(((((​

249
368
Посмотреть ответы 1

Ответы на вопрос:

artemlis1302200
artemlis1302200
4,6(66 оценок)
1)program test; var   a: array[1..12] of integer;   i,min: integer; begin   for i: =1 to 12 do begin       readln(a[i]);       a[i]: =abs(a[i]);       if i=1 then min: =a[i]       else if a[i]< min then min: =a[i];   end;   writeln(min); end. 2) uses crt ; var     a                      : array [ 1 .. 100 ] of integer ;     c                      : integer ;     i , j , n      : shortint ; begin         clrscr ;         write ( 'количество элементов массива = ' ) ;         readln ( n ) ;         writeln ( 'ввод массива' ) ;         for i : = 1 to n do                 read ( a [ i ] ) ;                                 a[i]: =abs(a[i]);         writeln ;         //сортировка пузырьком//         for i : = 1 to n - 1 do begin                 for j : = n downto i + 1 do begin                         if a [ j ] < a [ j - 1 ]                         then                         begin                                   c : = a [ j ] ; a [ j ] : = a [ j - 1 ] ; a [ j - 1 ] : = c ;                         end ;                                         end;                         end;         for i: =n-2 to n do writeln(a[i]); end .

Популярно: Информатика