var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
<span>end. </span>
Вот программа:
uses Crt;
const n=20;
type Vec=array [1..n] of integer;
var A: Vec;
i, Sum1, Sum2, Col1, Col2: integer;
begin
ClrScr;
Randomize;
Sum1:=0;
Sum2:=0;
Col1:=0;
Col2:=0;
WriteLn('Massiv A :');
for i:=1 to n do
begin
A[i]:=random(100);
Write(A[i]: 4);
if A[i]<50 then
begin
Sum1:=Sum1+A[i];
Col1:=Col1+1;
end else
begin
Sum2:=Sum2+A[i];
Col2:=Col2+1;
end;
end;
WriteLn;
WriteLn('Sred<50 :', Sum1/Col1:6:2) ;
WriteLn('Sred>=50 :', Sum2/Col2:6:2) ;
ReadLn;
end.
begin
var n := ReadInteger();
var a := MatrGen(n, n, (i, j)-> (2 shl i) * Ord(j >= i));
a.Println;
end.
Можно через интернет программа называется мультатор
можно рисовать много картинок и с помощью фотоаппарата и например фотошоп сделать гиф анимауию
1 скорее всего верно. Об этом точно написано как минимум в документации к Python. Так как это интерпретируемый язык, 5 скорее всего верно, но есть библиотеки, использующие C/С++ для вычислений, поэтому в некоторых случаях вычисления проводятся почти так же быстро, как в C++.
Гипотетически, можно создать процессор, под который можно было бы легко скомпилировать программу на Python. Язык программирования — абстракция, вещь в себе, поэтому он может быть как интерпретируемый, так и компилируемый, но в данном случае не существует истинных компиляторов (не в байт-код) Python, поэтому 1 верно, а 2 нет.
3 и 4 верны, так как на Android и iOS существуют интерпретаторы Python (Pythonista 3 для iOS и Pydroid для Android, например).