М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
somov101
somov101
12.07.2020 13:29 •  Информатика

Программисты. basic составьте подпрограмму, изменяющую одномерный массив чисел делением его положительных элементов на свои индексы и определяющую число измененных элементов. используя эту процедуру, определите, в каком из двух заданных одномерных массивов а или в больше измененных элементов, а также выведите измененные массивы а и в. если же число измененных элементов одинаково, то выведите соответствующее сообщение

👇
Ответ:
ApokalipsisZnanij
ApokalipsisZnanij
12.07.2020
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim A() As Integer
        Dim B() As Integer

        Randomize()
        Dim k As Integer
        Dim i As Integer
        i = Rnd() * 100 + 1
        ReDim A(i)
        For k = 0 To i
            A(k) = Rnd() * -1000 + 500
        Next
        i = Rnd() * 100 + 1
        ReDim B(i)
        For k = 0 To i
            B(k) = Rnd() * -1000 + 500
        Next

        Dim countA As Integer
        Dim countB As Integer

        countA = change(A)
        countB = change(B)
        Dim msg_A As String
        For i = 0 To UBound(A) - 1
            msg_A = msg_A & A(i) & vbCrLf
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
        Next
        Dim msg_B As String
        For i = 0 To UBound(B) - 1
            msg_B = msg_B & B(i) & vbCrLf
        Next
        If countA = countB Then MsgBox("Количество измененных элементов в двух массивах одинаково")
        MsgBox(msg_A)
        MsgBox(msg_B)
    End Sub

    Private Function change(ByRef Massiv() As Integer) As Integer
        Dim count As Integer
        Dim i As Integer
        For i = 0 To UBound(Massiv) - 1
            If Massiv(i) > 0 Then Massiv(i) = Massiv(i) / i : count = count + 1
        Next
        Return count
    End Function
4,4(83 оценок)
Открыть все ответы
Ответ:
kutirev123p
kutirev123p
12.07.2020
Program Sum;
Var a, b: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Сумма a и b равна ', a + b);
ReadLn;
End.

Program SumRow;
Const min = 5; max = 28;
Var a, i: Integer;
Begin
a := 0;
For i := min To max Do
a := a + i;
WriteLn('Сумма ряда равна ', a);
ReadLn;
End.

Program Digit;
Var a, b: LongInt;
c, d, i: Integer;
Begin
Write('a = ');
ReadLn(a);
b := 1;
c := 0;
While a Div b <> 0 Do
Begin
c := c + 1;
b := b * 10;
End;
While a > 0 Do
Begin
d := d + (a Mod 10);
a := a Div 10;
End;
WriteLn('Количество цифр в числе равно ', c);
WriteLn('Сумма цифр числа равна ', d);
ReadLn;
End.
4,8(26 оценок)
Ответ:
aisipat055
aisipat055
12.07.2020
Uses crt;
const n=4;
m=4;
var a:array[1..n,1..m] of integer;
s,i,j,p:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j] := random(99);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
writeln;
p:=1;
for i:=1 to n do
for j:=1 to m do
if i=j then p:=p*a[i,j];
s:=0;
if (a[1,2]*a[2,3]*a[3,4]=p) then s:=s+a[1,2]+a[2,3]+a[3,4];
if (a[1,3]*a[2,4]=p) then  s:=s+a[1,3]+a[2,4];
if a[4,4]=p then   s:=s+a[4,4];
if (a[2,1]*a[3,2]*a[4,3]=p) then  s:=s+a[2,1]+a[3,2]+a[4,3];
if (a[1,3]*a[2,4]=p) then   s:=s+a[2,1]+a[3,2];
if a[1,4]=p then   s:=s+a[1,4];
writeln(s);
end.
4,6(21 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ