Вот решение
Сори за транслит, мой компьютер не может по нормальному поддерживать русский язык
1)
#include <iostream>
using namespace std;
// Если у тебя макс не определен, то вот определение
template<typename T>
T max(T a, T b) {
if (a > b) return a;
return b;
}
int main() {
setlocale(LC_ALL, "Russia");
cout << "Введите 3 целых числа\n";
int a, b, c;
cin >> a >> b >> c;
int Max = max(a, b);
Max = max(Max, c);
cout << "Макс = " << Max << endl;
}
2)
#include <iostream>
using namespace std;
// translit one love
int main() {
cout << "Vvedity nomer ";
string num;
cin >> num;
int sum = 0;
for (int i = 0; i < num.length(); i++) {
if (num[i] >= '0' && num[i] <= '9')
sum += int(num[i]) - int('0');
}
if (sum % 3 == 0) cout << "chislo " << num << " delitsya na 3 potomy cto summa chifr = " << sum << endl;
else cout << "chislo " << num << " ne delitsya na 3 potomy cto summa chifr = " << sum << endl;
}
3)
#include <iostream>
using namespace std;
// translit one love
int main() {
cout << "Vvedity nomer ";
string mouth[12] = { "Yanvar", "Fevral", "Mart", "Aprel",
"May", "Iun", "Iul", "Avgust",
"Sentyabr", "Oktabr", "Noyabr", "Decabr", };
int num = 0;
cin >> num;
cout << "Mesyac is " << mouth[(num + 11) % 12] << endl;
}
1) program exec;
var a:array[1..20] of integer;
var p,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(50);
writeln (a[i]);
if (a[i] mod 2<>0) then p:=p+1;
end;
if (p>0) then writeln ('Присутствуют нечётные элементы')
else writeln ('Не присутствуют нечётные элементы');
end.
2) program exec;
var a:array[1..20] of integer;
var p,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(50);
writeln (a[i]);
if (a[i] mod 2=0) then a[i]:=a[i]+1
else a[i]:=a[i]*2;
end;
writeln ('---'); // разделение двух массивов
for i:=1 to 20 do writeln (a[i]);
end.
