Var
n: integer;
begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.
Program A;
var a,b,c,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
begin
write('введите число:');
readln(b);
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
program B;
var a,b,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
b:=random(300)+1;
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
2 клетки. Потому что в условии описан квадрат, окаймление которого - пустота. Данным условиям удовлетворяет только 2 варианта:
С4 и D4. Во всех остальных случаях - беда)
=СЧЁТ(C4:H4) - вставьте эту формулу в нужную клетку.