Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

1. Найти сумму элементов массива принадлежащих промежутку от C до D (C и D вводятся с клавиатуры). 2. Определить есть ли в данном массиве положительные элементы кратные k ( k вводится с клавиатуры). Паскаль

Ответ оставил Гость

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.