pascal:
var a,n,count,max,i: integer;
begin
count : =0;
max: = -1;
readln(n);
for i: =1 to n do
begin
readln(a);
if (a> max) then
begin
max: =a;
count: =1;
end
else
begin
if (a = max) then
count: =count+1;
end
end;
writeln(count);
end.
var c: array[1..10] of real;
var a: array[1..10] of real;
var b: array[1..10] of real;
var i: integer;
begin
randomize;
for i in [1..10] do
begin
a[i] : = random(101);
a[i] : = random(101);
end;
for i in [1..10] do
begin
c[i] : = a[i] + b[i];
end;
for i in[1..10] do
begin
writeln(c[i]);
end;
end.
не понятно какой рандом нужен был, то есть min/max, поэтому я взял просто рандомное число от 0 до 100
Поделитесь своими знаниями, ответьте на вопрос:
Опишите понятия ссылка и гиперссылка. ! !
гиперссылка- это когда ты нажимаешь на кнопку и тебя автоматически переносит, на какой-то сайт, а ссылка- это просто ссылка, по которой ты переходишь и всо.