1) var a=array[1..10]of integer; i,max,poz: integer; begin writeln('vverite 10 elementov') for i:=1 to 10 do read(a[i]); max:=a[1]; poz:=1; for i:=2 to 10 do if (a[i]>max)then begin max:=a[i];poz:=i; end; writeln('max = ',max,' ego nomer =', poz); end. 2) var a=array[1..10]of integer; i:integer; begin writeln('vverite 10 elementov') for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if (a[i]>=10)and(a[i]<=99) then writeln(a[i],' ego nomer',i); end. 3) var a=array[1..10]of integer; i,k,poz:integer; begin writeln('vverite 10 elementov') for i:=1 to 10 do read(a[i]); k:=0; for i:=10 downto 1 do begin if(a[i] mod 3 =0) then begin k:=k+1;poz:=i; end; if(k=2) then writeln(a[i],' ego nomer = ',i); end; if(k=0) then writeln('kratnyh 3 net'); if(k=1) then writeln('kratnyy 3 tol'ko 1: a[',poz,']=',a[poz]); end.
#include <iostream>
#include <string>
using namespace std;
int main()
{
string w;
int b;
string arr;
getline(cin,w);
cin>>b;
cin.ignore();
getline(cin,arr);
if(w == "szyfruj")
{
for(int i=0; i<arr.size(); i++)
{
if(int(arr[i])>=97 && int(arr[i])<=122 || int(arr[i])>=65 && int(arr[i])<=90)
{
if(int(arr[i])>=97 && int(arr[i])<=122)
{
if(int(arr[i])+b>122) arr[i]-=26;
arr[i]+=b;
}
else
{
if(int (arr[i])+b>90) arr[i]-=26;
arr[i]+=b;
}
}
}
}
if(w == "odszyfruj")
{
for(int i=0; i<arr.size(); i++)
{
if(int(arr[i])>=97 && int(arr[i])<=122 || int(arr[i])>=65 && int(arr[i])<=90)
{
if(int(arr[i])>=97 && int(arr[i])<=122)
{
if(int(arr[i])-b<97) arr[i]+=26;
arr[i]-=b;
}
else
{
if(int (arr[i])-b<65) arr[i]+=26;
arr[i]-=b;
}
}
}
}
cout<<arr;
return 0;
}
Объяснение:
код на с++ для примера
пункт со сдвигом букв сам сделаешь
P. S. у меня на 5 они сдвигаются,
var a=array[1..10]of integer;
i,max,poz: integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
max:=a[1];
poz:=1;
for i:=2 to 10 do
if (a[i]>max)then begin max:=a[i];poz:=i; end;
writeln('max = ',max,' ego nomer =', poz);
end.
2)
var a=array[1..10]of integer;
i:integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if (a[i]>=10)and(a[i]<=99) then writeln(a[i],' ego nomer',i);
end.
3)
var a=array[1..10]of integer;
i,k,poz:integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
k:=0;
for i:=10 downto 1 do
begin
if(a[i] mod 3 =0) then begin k:=k+1;poz:=i; end;
if(k=2) then writeln(a[i],' ego nomer = ',i);
end;
if(k=0) then writeln('kratnyh 3 net');
if(k=1) then writeln('kratnyy 3 tol'ko 1: a[',poz,']=',a[poz]);
end.