While (условие) do
операция цикла
Выбираешь на рабочем столе пустое пространство, щёлкни правой кнопкой мыши,выбери команду "Упорядочить значки". Выбери команду,которая показывает,как ты желаешь упорядочить(например,имя или тип). Если нужно упорядочить автоматически,значит нажми на соответствующую кнопку "Автоматически".
Открыть, настройки и очистить кеш и данные приложения с которого хотят скачать, перезапустить и качать заного
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.