Const n=10;
var a:array[1..n] of integer;
prz:integer;
i:byte;
begin
prz:=1;
for i:=1 to n do
begin
a[i]:=-56+random(103);
if (i mod 2=0) and (a[i]>5) then
prz:=prz*a[i];
write(a[i],' ');
end;
writeln('prz= ',prz);
end.
Програмы , которые выполняют различные стандартные функции и команды ( задачи ) зададеные ему .
См скриншот
==================================
Шифр Цезаря: это вместо буквы нужно взять следующую за ней, например, слово яблоко будет так: авмплп.