const n=5;
a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');
var i,m,mi: integer;
begin
m:=length(a[1]);
mi:=1;
for i:=2 to n do if length(a[i])>m then
begin
m:=length(a[i]);
mi:=i
end;
writeln;
writeln(a[mi])
end.
Ответ:
Объяснение:Все многообразие программ, используемых на современном компьютере, называется программным обеспечением - ПО (software).
Программы, составляющие ПО, можно разделить на три группы: системное ПО, системы программирования, прикладное ПО. Ядром системного ПО является операционная система.
var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.
16*40=640 символов на одной строке
640*40=25600 символов на 40 строках
25600*16=409600-символов на всех страницах
a, b = map(int, input().split())
if a > b:
print(a*b)