Вот ещё задание которое не могу.Пжлста сделайте кто может с решением
10-11 класс
|
Ответ 2 ........ Первый цикл заполняет массив полностью , но потом второй перезаписывает и все числа который первый цикл впихнуло в массив стираются , второй цикл начинает запись заново с нуля до 10 числами заполняется элементы с нумерацией от 1..9 , потом последний оператор в последний оставшийся ячейки под номером 10 заполняет числом 10
В первом цикле 11 элементов массива заполнятся значениями, на единицу меньшими номера элемента, т.е. -1, 0, .. 9.
Во втором цикле значения всех элементов массива будут сдвинуты влево на один, т.е. вместо -1 запишется 0, вместо 0 запишется 1.... вместо 8 запишется 9.
Получим значения 0, 1, 2, ...9, 9.
И последний оператор заменит в значение последнего элемента массива на 10.
Окончательно: 0, 1, 2, ... 9, 10
Ответ: 4)
Другие вопросы из категории
счисления а)974 б)9ВЕ3 в)11111 г)631
Читайте также
вверх), второе - номер горизонтали (при счете слева направо). Даны натуральные числа k, l, m,n, каждое из которых не превосходит восьми. Требуется:
1. выяснить, являются ли поля (k, l) и (m, n) полями одного цвета
2. на поле (k, l) расположен ферзь. Угрожает ли он полю (m, n)?
задача в Delphi.
Нужной найти количество положительных чисел в Массиве Z(5..7), заполненным в интервале [-5,10]
Не могу никак сделать и понять.
порядок меньше, с вычеркнутым столбцом и строкой на пересечении которых находится наименьшее число из первой матрицы. Я нашел наименьшее число, а как дольше делать понять не могу.
Вот начало самой программы:
Sub laba9()
Dim N As Integer, a() As Integer, i As Byte, j As Byte, min As Integer, l1 As Integer, l2 As Integer
N = Val(InputBox("Введите размерность массива"))
ReDim a(N, N)
Sheets("Лист1").Select
Sheets("Лист1").Range("A1:AAA100").Clear
For i = 1 To N
For j = 1 To N
a(i, j) = Rnd * 100
Cells(i, j) = a(i, j)
Next j
Next i
min = a(1, 1)
l1 = 1
l2 = 2
For i = 1 To N
For j = 1 To N
If a(i, j) < min Then
min = a(i, j)
l1 = i
l2 = j
End If
Next j
Next i
End sub
позицию, то есть получите вектор А = (a2 , a3 , ..., aN , a1 ).
2) Имеется последовательность чисел a1, a2 , ..., aN . Найти сумму первых из них, произведение которых не превышает заданного числа М.
СИ++. #include <stdio.h>
#include <conio.h>
хотя если вывод поставить в процедуру тогда все нормально.
program kr_pr_4;
procedure fgerona(a,b,c:real);
var
p,s:real;
begin
p:=(a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
end;
var
a,b,c,s,p:real;
begin
writeln('Введите сторону А');
read(a);
writeln('Введите сторону B');
read(b);
writeln('Введите сторону C');
read(c);
fgerona(a,b,c);
writeln('S = ',s);
end.