Компьютерде есепті шығару кезеңдерінің рет нөмірлерін 4. Компьютерде есепті қойып шығыңдар. ... кезең Модель құру ... кезең Компьютерге программа енгізу ... кезең ... кезең Программа құру Алгоритм құру ... кезең Қорытынды және талдау ... кезең Есептің қойылымы
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.
Просто: 1) система программирования это средство, которое позволяет писать программы, на определенном языке программирования, или на нескольких определенных языках. 2) язык программирования: это система обозначений, которая позволяет записывать алгоритмы. 3) чтоб алгоритм работал на машине, нужно: описание, на языке программирования, ввести в систему программирования, которая по этому описанию сделает выполняемую программу. 4) кроме транслятора, система программирования содержит весь набор инструментов для работы: текстовые редакторы, конструкторы, отладчики, и тд. поэтому называется "система"
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.