Var m: array [1 .. 16] of integer; i: integer; begin for i := 1 to 16 do begin randomize; m[i] := random(31) + 30; end; writeln('Вот Ваш массив'); for i := 1 to 16 do writeln('m[', i, ']=', m[i], ' '); readln; end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var s:=ReadlnString('>'); var delims:=' ,:;!?'.ToCharArray; // разделители var a:=s.ToWords(delims).JoinIntoString; // очистка от мусора var aw:=a.MatchValues('([A-Za-zА-Яа-яЁё])+').ToArray; var ad:=a.MatchValues('([-\d.])+').ToArray; Print('Слова:'); aw.Println; Print('Самое длинное слово:'); var ind:=aw.Select(x->x.Length).ToArray.IndexMax; Println(aw[ind]); var m:=aw[ind].Length; // самая большая длина слова aw:=aw.Select(x->x.PadRight(m)).ToArray; Print('Числа:'); ad.Println; Print('Самое длинное число:'); Println(ad[ad.Select(x->x.Length).ToArray.IndexMax]); for var j:=1 to m do begin for var i:=0 to aw.Length-1 do Print(aw[i][j]); Writeln end; end.
Тестовое решение: > Длина составляет 1.2 метра; ширина 0.93 метра! Слова: Длина составляет метра ширина метра Самое длинное слово: составляет Числа: 1.2 0.93 Самое длинное число: 0.93 Д с м ш м л о е и е и с т р т н т р и р а а а н а в а л я е т
Из-за того, что тут используется пропорциональный шрифт, нарушено взаимное расположение символов на выводе. Истинная картина дана во вложении.
Program random; var a, b, c, d:integer; begin read (a); if a mod 10 = 0 then writeln ('число оканчивается на ноль') else writeln ('число оканчивается не на ноль'); end. – программа, которая высчитывает, оканчивается ли число на ноль или нет. Принцип работы: ты вводишь число. Если число делится на 10, тогда на экран тебе выводится подтверждающая этому информация, что число оканчивается на ноль.
program random; var a, b:integer; begin read (a, b); // a – десятки, b – единицы if a = 4 or 6 then writeln ('число имеет в себе 4 десятка') end. – программа, которая говорит тебе, имеет ли число в себе 4 или 6 десятков. Принцип работы: ты вводишь 2 переменные: a и b; a — это десятки, а b — единицы. Если число a (десятки) равно четырём или шести, тогда на экран тебе выводится информация, подтверждающая это.
m: array [1 .. 16] of integer;
i: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(31) + 30;
end;
writeln('Вот Ваш массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
readln;
end.