Ответ: 19 клеток,
клетка финиша а1 не учитывается
<span>Отрицание отрицания дает утверждения.
1. Сегодня в театре не идет опера Евгений Онегин.2. Не каждый охотник желает знать, где сидит фазан.3. Число 1 - не простое число.4. Натуральные числа, не оканчивающиеся цифрой 0, не являются простыми числами.5. Верно, что число 3 является делителем числа 198.6. Коля решил не все задания контрольной работы.7. Не во всякой школе некоторые ученики интересуются спортом.8. Некоторые млекопитающие живут на суше.</span>
const
N = 12;
var
a: array[1..N] of integer;
c, d, k, count, sum, i: integer;
begin
writeln('Введите промежуток: '); readln(c, d);
writeln('Введите k: '); readln(k);
for i := 1 to N do begin
a[i] := random(30);
write(a[i], ' ');
if(a[i] > 0) and (a[i] mod k = 0) then inc(count);
end;
for i := c to d do begin
sum := sum + a[i];
end;
writeln;
writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum);
if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);
end.
//PascalABC.NET 3.2 сборка 1318
Var
ar:array[1..4] of real;
i,j:integer;
c:real;
begin
for i:=1 to 4 do
readln(ar[i]);
for i:=1 to 3 do //так как только 8 класс, пузырёк
for j:=i+1 to 4 do
if ar[i]>ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
for i:=1 to 4 do
write(ar[i]:3);
end.
Пример ввода:
2
1
4
3
Пример вывода:
1 2 3 4