Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *
M = int(input("Введите возраст: "))
k = m % 10
if (m>9)and(m<20)or(m>110)or(k>4)or(k==0):
print("Вам",m,"лет.")
else:
if k==1: print("Вам",m,"год.")
else: print("Вам",m,"года.")
Пример:
<span>Введите возраст: 21
Вам 21 год.</span>
Const
m = 3;
n = 4;
var
a: array[1..m, 1..n] of integer;
i, j, k, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
{ Пузырьковая сортировка по возрастанию в строках }
for i:=1 to m do
for k := 1 to n-1 do
for j := 1 to n-1 do
if a[i,j] > a[i,j+1] then
begin t := a[i,j]; a[i,j] := a[i,j+1]; a[i,j+1] := t end;
Writeln('Сортировка по строкам');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
41 5 -19 -6
46 -27 37 5
33 18 -39 -4
Сортировка по строкам
-19 -6 5 41
-27 5 37 46
-39 -4 18 33
<span><span>ночь - ноль - соль - сель - сень - день</span>
рота - </span>нота - нога <span>- нора - пора - пола - полк
бант - рант - рана - раса - роса - коса
бег - бог - бок - бак - мак - рак - гак - маг - шаг
море - горе - гора - кора - кома - кума </span>- пума <span>- сума - суша
миг - мир - пир - пар - бар - бас - бес - вес - век</span>