Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
B=132+ 120/10= 132+12=144
a= 144/12*10= 12*10=120
Ответ:120
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,s=0;
for(int i=0;i<10;i++){
cin>>a;
if(a>5)s=s+a;
}
cout<<s;
cin.get();
cin.get();
return 0;
}
Пример ввода:
1
2
3
4
5
10
10
10
10
10
Пример вывода:
50