var
a:array of integer;
i,n,count:integer;
function Ss(m:integer):boolean;
var
sum:integer;
begin
sum:=0;
repeat
sum:=sum+ m mod 10;
m:=m div 10;
until m=0;
if sum mod 2 = 0 then
Ss:=true
else Ss:=false;
end;
begin
write('Размерность массива: '); readln(n);
setlength(a,n); dec(n);
count:=0;
for i:=0 to n do
begin
a[i]:=random(401)-200;
if Ss(a[i]) then
inc(count);
write(a[i]:5);
end;
writeln;
writeln('Кол-во: ',count);
end.
#include <iostream>
#include <conio.h>
#include <Windows.h>
using namespace std;
int main()
{
SetConsoleOutputCP(1251);
SetConsoleCP(1251);
int l = 2, k = 5, lz = 0, kz = 0, sum = 0;
char s[100];
puts(«Введіть ваше секретне повідомлення:»);
gets_s(s,100);
for (int I = 0; I < strlen(s); i++)
{
if (s[i] == ‘а’ || s[i] == ‘е’ || s[i] == ‘и’ || s[i] == ‘і’ || s[i]
== ‘о’ || s[i] == ‘у’ || s[i] == ‘А’ || s[i] == ‘Е’ || s[i] == ‘И’ || s[i] == ‘І’
|| s[i] == ‘О’ || s[i] == ‘У’)
kz++;
if (kz == k)
{
s[i] = ‘a’;
kz = 0;
sum += 1;
}
if (s[i] == ‘б’ || s[i] == ‘в’ || s[i] == ‘г’ || s[i] == ‘д’ || s[i]
== ‘ж’ || s[i] == ‘з’ || s[i] == ‘к’ || s[i] == ‘л’ || s[i] == ‘м’ || s[i] == ‘н’
|| s[i] == ‘п’ || s[i] == ‘р’ || s[i] == ‘с’ || s[i] == ‘т’ || s[i] == ‘ф’ || s[i]
== ‘х’ || s[i] == ‘ц’ || s[i] == ‘ч’ || s[i] == ‘ш’ || s[i] == ‘щ’ || s[i] == ‘Б’
|| s[i] == ‘В’ || s[i] == ‘Г’ || s[i] == ‘Д’ || s[i] == ‘Ж’ || s[i] == ‘З’ || s[i]
== ‘К’ || s[i] == ‘Л’ || s[i] == ‘М’ || s[i] == ‘Н’ || s[i] == ‘П’ || s[i] == ‘Р’
|| s[i] == ‘С’ || s[i] == ‘Т’ || s[i] == ‘Ф’ || s[i] == ‘Х’ || s[i] == ‘Ц’ || s[i]
== ‘Ч’ || s[i] == ‘Ш’ || s[i] == ‘Щ’)
lz++;
if (l == lz)
{
s[i] = ‘y’;
lz = 0;
sum += 10;
}
}
puts(“Ваше розшифроване повідомлення:”);
puts(s);
cout << «Вартість подарунку становить: « << sum << «грн.» << endl;
return 0;
}
Объяснение:
Це на мові C++ можеш звідси щось взяти у свій код.