Не заходить без разрешения учителя в кабинет.Не включать компьютер без разрешения учителя.Не трогать монитор.Не кушать за компьютером.Не ложить на клавиатуру вещи.Не вставлять флешки без разрешения учителя и т.д
Все решения даны в системе программирования PascalABC.NET 3.2, сборка 1382 от 06.02.2017
Если программа не работает, обновите версию!
№1 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); var im:=a.IndexMax; Writeln('Максимальный элемент номер ',im+1,' равен ',a[im]) end.
Пример n= 6 Вводите числа: 13 8 -15 0 16 -24 Максимальный элемент номер 5 равен 16
№2 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); Sort(a,(x,y)->x>y); a.Println end.
Пример n= 5 Вводите числа: 5 -4 6 0 5 6 5 5 0 -4
№3 begin var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println; Sort(a,(x,y)->x>y); a.Println end.
Решение с массивом var a: array[1..1000] of longint; i, n, k1, k2: longint; begin k1 := 0; k2 := 0; read(n); for i := 1 to n do begin read(a[i]); if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 := k1 + 1; if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 := k2 + 1; end; writeln(k1, ' ', k2); end.
Решение без массива var x, i, n, k1, k2: longint; begin k1 := 0; k2 := 0; read(n); for i := 1 to n do begin read(x); if (x mod 2 = 0) and (x mod 5 = 0) then k1 := k1 + 1; if (x mod 3 = 0) and (x mod 2 = 1) then k2 := k2 + 1; end; writeln(k1, ' ', k2); end.
