Вообще подобные задания обычно делаются в excel.
И делать с массивом или без?.
program abc;
var A : array [1..7] of integer;
s, k: integer;
BEGIN
s:=0
for k:= 1 to 7 do
begin
readln (A[k]);
s:=s+A[k];
end;
writeln ('Среднее атмосферное давление ', (s/7));
END.
Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
Цикл — разновидность управляющей конструкции в высокоуровневых языках программирования, предназначенная для организации многократного исполнения набора инструкций.
Команда цикла в паскале:
1)for x to n do
begin
end.
2) while < условие> do <оператор 1>; {Пока … делай ….}
3)repeat { повторяй … }
<оператор 1>;
< оператор 2>;
…
until {до…} <условие>
2.
Условие цикла - это то, где мы объявляем задачу:
"for 1 to 2 do"
Тело цикла -Последовательность инструкций, предназначенная для многократного исполнения, называется телом цикла.
пример:
begin
(действие)
end.
О конъюнкции - она верна тогда и только тогда, когда верны все высказывания, входящие в её состав.
Программное обеспечение, софт.