Решите надо 4. что определяет для массива x[1..n] следующий алгоритм p: = 0; for k: = 1 to n do if x[k] < 0 then p: =k; 1) минимальный элемент массива; 2) сумму отрицательных элементов массива; 3) максимальный элемент массива; 4) количество отрицательных элементов массива; 5) индекс последнего отрицательного элемента массива; 6) ни один из ответов 1-5 не верен. 5. что определяет для массива x[1..n] следующий алгоритм r: = 0; for k: = 1 to n do if x[k] < 0 then r: =r+1; 1) минимальный элемент массива; 2) сумму отрицательных элементов массива; 3) максимальный элемент массива; 4) количество отрицательных элементов массива; 5) индекс последнего отрицательного элемента массива; 6) ни один из ответов 1-5 не верен. 6. что определяет для массива x[1..n] следующий алгоритм r: = 0; for k: = 1 to n do if x[k] 1) номер первого элемента массива, большего t; 2) количество элементов массива, больших t; 3) номер первого элемента массива, меньшего t; 4) номер последнего элемента массива, большего t; 5) количество элементов массива, меньших t; 6) ни один из ответов 1-5 не верен. 7. что определяет для массива x[1..n] следующий алгоритм r: = n; for k: = 1 to n do if x[k] < =t then r: =r-1; 1) номер первого элемента массива, большего t; 2) количество элементов массива, больших t; 3) номер первого элемента массива, меньшего t; 4) номер последнего элемента массива, большего t; 5) количество элементов массива, меньших t; 6) ни один из ответов 1-5 не верен. 8. что определяет для массива x[1..n] следующий алгоритм p: = 0; for k: = n downto 1 do if x[k] 1) номер первого элемента массива, большего t; 2) количество элементов массива, больших t; 3) номер первого элемента массива, меньшего t; 4) номер последнего элемента массива, большего t; 5) количество элементов массива, меньших t; 6) ни один из ответов 1-5 не верен. 9. что определяет для массива x[1..n] следующий алгоритм p: = 0; for k: = 1 to n do if x[k] > t then p: =k; 1) номер последнего элемента массива, меньшего t; 2) количество элементов массива, больших t; 3) номер первого элемента массива, меньшего t; 4) номер последнего элемента массива, большего t; 5) количество элементов массива, меньших t; 6) ни один из ответов 1-5 не верен. 10. что определяет для массива x[1..n] следующий алгоритм r: = 0; for k: = 1 to n do if x[k] < > t then r: =r+1; 1) номер последнего элемента массива, не равного t; 2) количество элементов массива, не равных t; 3) номер первого элемента массива, не равного t; 4) номер последнего элемента массива, равного t; 5) количество элементов массива, равных t; 6) ни один из ответов 1-5 не верен. 11. что определяет для массива x[1..n] следующий алгоритм p: = 0; for k: = n downto 1 do if x[k] < > t then p: =k; 1) номер последнего элемента массива, не равного t; 2) количество элементов массива, не равных t; 3) номер первого элемента массива, не равного t; 4) номер последнего элемента массива, равного t; 5) количество элементов массива, равных t; 6) ни один из ответов 1-5 не верен. 12. что определяет для массива x[1..n] следующий алгоритм r: = 0; for k: = 1 to n do if x[k] =t then r: =r+1; 1) номер последнего элемента массива, не равного t; 2) количество элементов массива, не равных t; 3) номер первого элемента массива, не равного t; 4) номер последнего элемента массива, равного t; 5) количество элементов массива, равных t; 6) ни один из ответов 1-5 не верен. 13. что определяет для массива x[1..n] следующий алгоритм p: = 0; for k: = 1 to n do if x[k] =t then p: =k; 1) номер последнего элемента массива, не равного t; 2) количество элементов массива, не равных t; 3) номер первого элемента массива, не равного t; 4) номер последнего элемента массива, равного t; 5) количество элементов массива, равных t; 6) ни один из ответов 1-5 не верен.
Ответы
5 4 6(там не дописано) 2 6(там не дописано) 4 2 1 5 4
Program p1;
var a,b:integer;
begin
writeln ('Введите 2 числа');
readln (a,b);
if a=b then writeln ('Числа одинаковые')
else if a>b then
begin writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin writeln ('Наибольшее число ',b);
writeln ('Наиментшее число 10 ',a);
end;
end.
program p2;
var a,b,c,d:integer;
begin
writeln ('Введите 4 числа');
readln (a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a<c then a:=c;
writeln ('Наибольшее число ',a);
end.
program p3;
var a,b,v:integer;
begin
writeln ('Введите возрасты людей:');
write ('Антона - ');
readln (a);
write ('Бориса - ');
readln (b);
write ('Виктора - ');
readln (v);
if (a=b) and (a=v) then writeln ('Все люди одного возраста');
if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора');
if (a=b) and (a<v) then writeln ('Виктор старше всех')
else if (v>a) and (v>b) then writeln ('Виктор старше всех');
if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона');
if (b=v) and (b<a) then writeln ('Антон старше всех')
else if (a>v) and (a>b) then writeln ('Антон старше всех');
if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса');
if (a=v) and (a<b) then writeln ('Борис старше всех')
else if (b>v) and (b>a) then writeln ('Борис старше всех');
end.
var a,b:integer;
begin
writeln ('Введите 2 числа');
readln (a,b);
if a=b then writeln ('Числа одинаковые')
else if a>b then
begin writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin writeln ('Наибольшее число ',b);
writeln ('Наиментшее число 10 ',a);
end;
end.
program p2;
var a,b,c,d:integer;
begin
writeln ('Введите 4 числа');
readln (a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a<c then a:=c;
writeln ('Наибольшее число ',a);
end.
program p3;
var a,b,v:integer;
begin
writeln ('Введите возрасты людей:');
write ('Антона - ');
readln (a);
write ('Бориса - ');
readln (b);
write ('Виктора - ');
readln (v);
if (a=b) and (a=v) then writeln ('Все люди одного возраста');
if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора');
if (a=b) and (a<v) then writeln ('Виктор старше всех')
else if (v>a) and (v>b) then writeln ('Виктор старше всех');
if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона');
if (b=v) and (b<a) then writeln ('Антон старше всех')
else if (a>v) and (a>b) then writeln ('Антон старше всех');
if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса');
if (a=v) and (a<b) then writeln ('Борис старше всех')
else if (b>v) and (b>a) then writeln ('Борис старше всех');
end.
Sub aaa()
Rows.Clear
Dim n As Integer, k As Integer, i As Integer
n = CInt(InputBox("n="))
k = 2 * n - 1
ReDim y(1 To k) As Integer
Randomize Timer
For i = 1 To k
y(i) = Int(Rnd * 100 - 50)
Next i
Dim ry As Range
Set ry = Range(Cells(2, 2), Cells(2, k + 1))
ry = y
ReDim x(1 To n) As Integer
Dim rx As Range
Set rx = Range(Cells(3, 2), Cells(3, n + 1))
For i = 1 To n
x(i) = y(2 * i - 1) ^ 2
Next i
rx = x
Cells(2, 1) = "y"
Cells(3, 1) = "x"
Set ry = Range(Cells(2, 1), Cells(2, k + 1))
Set rx = Range(Cells(3, 1), Cells(3, n + 1))
End Sub
Rows.Clear
Dim n As Integer, k As Integer, i As Integer
n = CInt(InputBox("n="))
k = 2 * n - 1
ReDim y(1 To k) As Integer
Randomize Timer
For i = 1 To k
y(i) = Int(Rnd * 100 - 50)
Next i
Dim ry As Range
Set ry = Range(Cells(2, 2), Cells(2, k + 1))
ry = y
ReDim x(1 To n) As Integer
Dim rx As Range
Set rx = Range(Cells(3, 2), Cells(3, n + 1))
For i = 1 To n
x(i) = y(2 * i - 1) ^ 2
Next i
rx = x
Cells(2, 1) = "y"
Cells(3, 1) = "x"
Set ry = Range(Cells(2, 1), Cells(2, k + 1))
Set rx = Range(Cells(3, 1), Cells(3, n + 1))
End Sub
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
написать желательно на c++ уровень 9 класса
Автор: Elen-ti81459
Разработайте переборный алгоритм поиска всех аддитив-ных цепочек для конкретного значения n 100.
Автор: natalia-shelkovich
1.в алфавите 16 символов. сколько бит нужно для кодирования 1 символа?
Автор: serge-lysoff
