В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлена программа, в котором значения элементов массива сначала задаются, а затем меняются.

var i: integer;
a:array [0..10] of integer;
begin
for i:= 1 to 10 do
A[i]:= 3*i;
for i:= 1 to 10 do begin
A[i] := A[i] mod 3;
end;
for i:= 1 to 10 do
write (a[i], ' ');
end.

Чему будут равны элементы этого массива?

1) Все элементы будут равны 3.
2) Все элементы будут равны 1.
3) Все элементы будут равны 0.
4) Все элементы будут равны своим индексам.
​

Function IsPrime(n As Integer) As Boolean
    Dim found As Integer
    found = n Mod 2 = 0
    Dim p As Integer
    p = 3
    Do While Not found And p * p <= n
        found = n Mod p = 0
        p = p + 2
    Loop
    IsPrime = Not found
End Function

Sub main()
    Randomize Timer
    Dim n As Integer, i As Integer, k As Integer
    n = 100 + Int(Round(899 * Rnd))
    ReDim a(1 To n) As Integer
    ReDim b(1 To n) As Integer
    i = 0: k = 0
    MsgBox n
    Do While i < n
        i = i + 1
        a(i) = 1000 + Int(Round(8999 * Rnd))
        If IsPrime(a(i)) Then
            k = k + 1
            b(k) = a(i)
        End If
    Loop
    Rows("1:1000").Clear
    Range(Cells(1, 1), Cells(n, 1)) = a
    For i = 1 To k
        Cells(i, 1) = a(i)
        Cells(i, 2) = b(i)
    Next i
    If k > 1 Then 'Сортировка второй колонки, так красивее
        Dim r As Range
        Set r = Range(Cells(1, 2), Cells(k, 2))
        r.Sort Range("B1")
    End If
    For i = k + 1 To n
        Cells(i, 1) = a(i)
    Next i
End Sub

Накопление знаний, узнавание,распространение, передача информации

Объяснение:

Чем же схожи человек и компьютер?

Человек может находить определенную информацию (Пойти в библиотеку, найти в интернете) и тщательно изучить и запомнить ее, накапливая свои знания.

С памяти человек узнает свой дом, друзей, близких и своих знакомых, различные предметы. Пример:О Катя, привет, давно не виделись! Мамочка, да, да, я скоро посуду.  Я так долго искал эту книгу, наконец то нашел!

Каждый день мы передаем друг другу и распространяем информацию. Мы рассказываем друг другу различные вещи и события из нашей жизни (и не только), переписываемся, звоним кому то.

Каждый день мы проходим кучу информации запоминая, накапливая, ра и передая. Этим человек и компьютер похожи