Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от -20 до 20, затем меняет местами первый элемент с максимальным элементом. выведите на экран исходный и полученный массивы.
Const n=10; var a:array[1..n] of integer; i, MAX,t:integer; begin randomize; writeln('Исходный массив:'); for i:=1 to n do begin A[i]:=random(40)-20; writeln(a[i]); end; MAX:=-20-1; for i:=1 to n do if A[i]>MAX then MAX:=A[i]; t:=A[1]; //Замена A[1]:=MAX; MAX:=t; Writeln('Готовый массив:'); for i:=1 to n do writeln(A[i]); end.
использовать Чертежникалг цифра_1начопустить перосместиться на вектор (0,2)сместиться на вектор (2,2)сместиться на вектор (0,-4)поднять перосместиться на вектор (-2,0)кон использовать Чертежникалг цифра_2начопустить перосместиться в точку (1,1)сместиться в точку (1,2)сместиться в точку (0,2)поднять перосместиться в точку (0,0)опустить перосместиться в точку (1,0)поднять перосместиться в точку (0,0)кон использовать Чертежникалг цифра_3начопустить перосместиться на вектор (1,1)сместиться на вектор (-1,0)сместиться на вектор (1,1)сместиться на вектор (-1,0)поднять перосместиться на вектор (0,-2)кон
использовать Чертежникалг цифра_4начподнять перосместиться на вектор (1,0)опустить перосместиться на вектор (0,2)поднять перосместиться на вектор (0,-1)опустить перосместиться на вектор (-1,0)сместиться на вектор (0,1)поднять перосместиться на вектор (0,-2)кон
использовать Чертежникалг цифра_5начопустить перосместиться на вектор (1,0)сместиться на вектор (0,1)сместиться на вектор (-1,0)сместиться на вектор (0,1)сместиться на вектор (1,0)поднять перосместиться на вектор (-1,0)сместиться на вектор (0,-2)кон
1. Строка получается слишком длиной, поэтому разбиваем ее на две части Sub Z1() Dim n As Integer Dim i As Integer Dim s1 As String Dim s2 As String For i = 100 To 999 If i Mod 3 = 0 Then n = n + 1 If Len(s1) < 1024 Then s1 = s1 & i & " " Else s2 = s2 & i & " " End If End If Next i MsgBox (s1) If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2) MsgBox ("Их количетво: " & n) End Sub 1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim n As Integer Dim i As Integer For i = 100 To 999 If i Mod 3 = 0 Then n = n + 1 Cells(n, 1) = i End If Next i MsgBox ("Их количество: " & n) End Sub
2. Sub z2() Dim k As Integer Dim p As Double k = InputBox("Введите k:") p = 1 For i = 1 To k p = p * (-1 + 4 * (i - 1)) Next i MsgBox ("Произведение: " & p) End Sub
n=10;
var
a:array[1..n] of integer;
i, MAX,t:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
A[i]:=random(40)-20;
writeln(a[i]);
end;
MAX:=-20-1;
for i:=1 to n do
if A[i]>MAX
then
MAX:=A[i];
t:=A[1]; //Замена
A[1]:=MAX;
MAX:=t;
Writeln('Готовый массив:');
for i:=1 to n do
writeln(A[i]);
end.