// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив [',8,',',7,'] ***'); var a:=MatrRandom(8,7,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); for var i:=0 to a.RowCount-1 do begin a.SetRow(i,a.Row(i).Sorted.ToArray) end; Writeln('*** Результирующий массив ***'); a.Println(4) end.
Var a,k,m,min,i,flag:integer; begin readln(a); m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе} while m >0 do begin m:=m div 10; k:=k+1; end; min:=9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных} for i:=1 to k do begin if (a mod 10<=min)and(a mod 2<>0) then begin min:=a mod 10; flag:=1; end; a:=a div 10; end; if flag=0 then writeln('нет нечетных') else writeln(min); end.
1.Найти фотографии своего класса. 2.Создать первый слайд:Вставить фотографию всего класса,написать кто сделал презентацию и сделать надпись "Наш класс". 3.Сделать второй слайд: написать о своём классном руководителе,вставить его фото и сделать заголовок. 4.Сделать четвертый слайд:написать о себе,вставить своё фото и сделать заголовок. 5.Создавать слайдов столько сколько у тебя одноклассников,делать их так же как про себя.Спрашивать у них про них. 6.Предпоследний слайд сделать с пожеланиями своим одноклассникам. 7.На последнем слайде можно поставить красивую картинку или смайл и написать за внимание!
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив [',8,',',7,'] ***');
var a:=MatrRandom(8,7,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
a.SetRow(i,a.Row(i).Sorted.ToArray)
end;
Writeln('*** Результирующий массив ***');
a.Println(4)
end.
Пример
*** Исходный массив [8,7] ***
-45 -24 26 38 -83 -97 77
15 -68 80 -47 3 -61 -52
-71 70 -52 46 70 59 -15
-66 -20 -32 82 63 1 76
93 -99 -38 22 83 -36 -42
53 17 -19 -7 47 12 -58
53 21 40 -88 -89 65 80
-73 -16 -78 -62 3 18 -79
*** Результирующий массив ***
-97 -83 -45 -24 26 38 77
-68 -61 -52 -47 3 15 80
-71 -52 -15 46 59 70 70
-66 -32 -20 1 63 76 82
-99 -42 -38 -36 22 83 93
-58 -19 -7 12 17 47 53
-89 -88 21 40 53 65 80
-79 -78 -73 -62 -16 3 18