Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
if d=0 then begin
var x:=-b/2/a;
Writeln('Корень уравнения x=',x)
end
else begin
var x1:=(-b-Sqrt(d))/2/a;
var x2:=(-b+Sqrt(d))/2/a;
Writeln('Корни уравнения: x1=',x1,', x2=',x2)
end
end.
1.
, 6бит на символ, 6*100 = 600бит = 75байт.
2. 3.5кб * 1024 = 3584байт <=> 3584 символов (1 символ - 1 байт)
Const
nm = 50;{максимальная размерность вектора}
var
i, n: integer;
x: array[1..nm] of real;
s: real;
begin
Write('Введите размерность вектора n -> ');
Readln(n);
Write('Вводите координаты вектора через пробел ');
s := 0;
for i := 1 to n do
begin
Read(x[i]);
s := s + sqr(x[i])
end;
Writeln('Длина вектора равна ', sqrt(s):0:4)
end.
Тестовое решение:
Введите размерность вектора n -> 7
Вводите координаты вектора через пробел -3.54 0.532 2.6 12 -3 0 1.47
Длина вектора равна 13.2188
Ответ:
Язык: Питон
Объяснение:
a = int(input())
for i in range(2, a + 1):
flag = True
for f in range(2, i):
if i % f == 0:
flag = False
break
if flag:
print(i, end=' ')