Расчитать стоимость содержания автомобиля на месяц(бензин, налоги, ремонт, страховка). С

'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()

Сделал вот так: c++выделить код#include < iostream> #include < cstring> using namespace std; int main(){const int biograthy = 30; char fname[biograthy]; char lname[biograthy]; char flname[biograthy]; cout < < "enter your first name: "; cin.getline(fname, biograthy); cout < <
"enter your last name: "; cin.getline(lname, biograthy); strcpy(flname, fname); strcat(flname, lname); cout < < "here's the information in a single: " < < flname < < endl; system("pause"); return 0; }