var
a: array[1..15] of integer;
b: array[1..20] of integer;
c: array[1..10] of integer;
i, maxa, maxb, maxc: integer;
begin
maxa := 0;
for i := 1 to 15 do
begin
read(a[i]);
if abs(a[i]) > maxa then maxa := abs(a[i]);
end;
maxb := 0;
for i := 1 to 20 do
begin
read(b[i]);
if abs(b[i]) > maxb then maxb := abs(b[i]);
end;
maxc := 0;
for i := 1 to 10 do
begin
read(c[i]);
if abs(c[i]) > maxc then maxc := abs(c[i]);
end;
if (maxa > maxb) and (maxa > maxc) then begin for i := 1 to 15 do write(a[i], ' ');writeln;writeln(maxa); end
else if (maxb > maxa) and (maxb > maxc) then begin for i := 1 to 20 do write(b[i], ' ');writeln;writeln(maxb); end
else if (maxc > maxb) and (maxc > maxa) then begin for i := 1 to 10 do write(c[i], ' ');writeln;writeln(maxc); end;
end.
Language: C# , IDE: Visual Studio .
string CountString;
TryAgain:
Console.WriteLine("Введите количество элементов массива (от 2 до 100)");
CountString = Console.ReadLine();
if(! ( uint.TryParse(CountString, out uint Count) && Count <= 100 && Count >=2 ) )
{
Console.WriteLine("Введите корректное значение, попробуйте ёще раз.");
Console.ReadLine();
goto TryAgain;
}
var Array = new int[Count];
var ListForEven = new List<int>();
var Randomizer = new Random();
int RandomNumber;
for(int i = 0; i < Count; i++)
{
RandomNumber = Randomizer.Next(-1000, 1000);
Array[i] = RandomNumber;
}
foreach(int Even in Array)
{
if (Even % 2 == 0) ListForEven.Add(Even);
}
Console.WriteLine($"Максимальное чётное число из массива: {ListForEven.Max()}");
Console.ReadLine();
var s:string; i:integer;
begin
write('Слово: ');
readln(s);
for i:=1 to length(s) do
writeln(' ':i,s[i]);
end.
Пример:
Слово: лесенка
л
е
с
е
н
к
а
2)
var s:string; n,i:integer;
begin
write('Слово: ');
readln(s);
write('n = ');
readln(n);
for i:=0 to n-1 do
writeln('':i*length(s),s);
end.
Пример:
Слово: лесенка
n = 4
лесенка
лесенка
лесенка
лесенка