При использовании random() упорядоченные строки получаются редко. Можете массив вводить с клавиатуры.
const n=5; m=4;
var
a:array[1..n,1..m] of integer;
i,j,max:integer;
b1,b2:boolean;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
max:=-1000;
for i:=1 to n do
begin
b1:=true; b2:=true;
for j:=1 to m-1 do
begin
if a[i,j]<a[i,j+1] then b1:=false;
if a[i,j]>a[i,j+1] then b2:=false;
end;
if b1 or b2 then
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
end;
if max<>-1000
then writeln('max = ',max)
else writeln('В массиве нет упорядоченных строк');
end.
Пример:
<span> 45 34 88 53
2 7 36 71
48 57 28 42
75 61 10 93
15 3 61 54
max = 71</span>
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
var s:=a.Partition(x->x.IsEven);
if s[0].Count<=s[1].Count then Writeln(s[0].Min)
else Writeln(s[1].Min)
end.
<u>Примеры</u>
n= 9
33 43 60 94 5 19 84 58 6
5
n= 10
54 55 71 65 79 88 71 98 8 71
8
Program Test;
Var
x: integer; chas: real; str1, str2: string;
Begin
Write('Введите длительность телепрограммы (мин): ');
Readln(X);
Writeln();
if (x < 60) then
begin
if (x < 10) then
Writeln('Миша ляжет спать в 00:0', x)
else
Writeln('Миша ляжет спать в 00:', x)
end
else
begin
chas := x div 60;
x := x mod 60;
if (chas >= 24) then
Writeln('Сегодня Миша спать не ляжет')
else
begin
if (chas < 10) then
str1 := '0' + chas
else
str1 := '' + chas;
if (x < 10) then
str2 := '0' + x
else
str2 := '' + x;
Writeln('Миша ляжет спать в ', str1, ':', str2);
end;
end;
End.
Https://www.imgonline.com.ua/gif-animation.php вот сайт
import java.util.Scanner;
public class mainClass {
public static void main(String[] args) {
Scanner scanner = new Scanner(System.in);
double v1 = scanner.nextDouble();
double v2 = scanner.nextDouble();
double s = scanner.nextDouble();
double t = scanner.nextDouble();
System.out.println("Расстояние между этими автомобилями будет равно ".concat(String.valueOf(s+t*(v1+v2))).concat(" км."));
}
}
