program massiv;
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
i: integer;
max: integer;
counter: integer;
begin
max:=0;
counter:=0;
for i:=1 to Sz do begin
a[i] := random(26) + 10;
if a[i] > max then begin
max := a[i];
end;
end;
writeln('Элементы массива: ');
for i:=1 to Sz do begin
write(a[i],' ');
if a[i] = max then begin
counter := counter + 1;
end;
end;
writeln('');
writeln('Максимальный элемент: ', max);
writeln('Кол-во таких элементов ', counter);
end.
Объяснение:
program massiv;
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
i: integer;
max: integer;
counter: integer;
begin
max:=0;
counter:=0;
for i:=1 to Sz do begin
a[i] := random(26) + 10;
if a[i] > max then begin
max := a[i];
end;
end;
writeln('Элементы массива: ');
for i:=1 to Sz do begin
write(a[i],' ');
if a[i] = max then begin
counter := counter + 1;
end;
end;
writeln('');
writeln('Максимальный элемент: ', max);
writeln('Кол-во таких элементов ', counter);
end.
Объяснение:
x:integer;
y:real;
begin
writeln('x','y':6);
for x:=30 to 45 do
begin
y:=sin(x*pi/180);
writeln(x:2,y:8:3);
end;
readln
end.