Ты прости меня если не чуточку на фото не понимаешь что написано, но это правильно) разберись
const N = 20;
var a: array [1..N] of integer;
i, k, sum, s: integer;
begin
for i := 1 to N do
begin
a[i] := random(11); //заполняем
sum := sum + a[i]; //Сумма всех эл-тов
end;
for i := 1 to N do
write(a[i], ' '); //Выводим
writeln; //переход на новую строку
writeln(sum);
readln(k);
for i := 1 to N do
if ((a[i] mod k) = 0) then
s := s + a[i]; //сумма эл-тов кратных k
writeln(s);
end.
Выделяешь в фш нужную область и заливаешь ее
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8
Периферийные устройства-с их помощью можно вводить или выводить информацию из компьютера.
Основные устройства-компоненты компьютера(процессор).