const n = 7;
var a: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('Введите ', i, ' элемент: ');
readln(a[i]);
end;
max := 0;
for i := 1 to n do
begin
if (a[i] mod 10 = 3) and (a[i] > max) then
max := a[i];
end;
for i := 1 to n do
begin
if (a[i] mod 8 = 0) then
a[i] := a[i] + max;
end;
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
end.
#include <iostream>
#include <string>
int main()
{
using namespace std;
int sum = 0, kr = 0, n = 0;
cout << "Вводите числа. 0 - конец." << endl;
while (true){
cin >> n;
sum += + n;
if (n%2==0 && n%5==0){
kr += 1;
}
if (n == 0){
break;
}
}
cout << "Сумма последовательности: " << sum << "\nКоличество четных чисел, кратных пяти: " << kr << endl;
}
var s:string;
i,j:byte;
begin
clrscr;
writeln('Введите строку, содержащую точки, как по 1, так и группами:');
readln(s);
if (length(s)>1)and(copy(s,1,2)='..') then{если в начале строки более 1 точки}
begin
{или строка вообще из точек}
while (s[1]='.')and(length(s)>0) do delete(s,1,1);
insert('...',s,1);
end; if(length(s)>2)and(s<>'...') then{если осталось более 2 сиволов, начнем проверять с конца}
begin i:=length(s)-2;
while i>=1 do
if (s[i]<>'.')and(copy(s,i+1,2)='..') then
begin
while (s[i+1]='.')and(i+1<=length(s)) do delete(s,i+1,1);
insert('...',s,i+1);
i:=i-1;
end
else i:=i-1;
end;
write(s);
readln
end.