Ввести n целых натуральных чисел в массив и вывести его на экран (1..1000) подсчитать сумму всех элементов меньше 10 найти количество нечетных элементов кратных 7 паскаль
С var самостоятельно)) read(n); for i:= 1 to n do begin read(a[i]); write (a[i],' '); if (a[i]<10) then sum:=sum+a[i]; if ((a[i] mod 2 <> 0) and(a[i] mod 7 = 0)) then Inc(k); end; writeln; writeln(sum); writeln(k); end.
var N, i, Sum, Odds: integer; A: array [1..1000] of integer; begin sum := 0; Odds := 0; write('Введите N: '); readln(N); writeln('Заполнение массива.'); for i := 1 to N do begin write('Введите A[', i, '] = '); readln(A[i]); if A[i] < 10 then sum := sum + A[i]; if (A[i] mod 7 = 0) and (A[i] mod 2 <> 0) then Odds := Odds + 1; end; writeln; writeln('Ваш массив.'); for i := 1 to N do write(A[i]:4); writeln; writeln('Сумма элементов меньше 10 = ', sum); writeln('Количество нечетных элементов кратных 7 = ', Odds); end.
Const n=15; Var a:array[1..n] of integer; i,indx,k,tr,indxx:integer; Begin Randomize; For i:=1 to n do begin A[i]:=Random(40)-20; Write(a[i],' '); end; Writeln; write('0 имеет номер: '); For i:=1 to n do Begin If A[i]=0 thenwrite(i); end; Writeln; indx:=0; For i:=1 to n do Begin If a[i] mod 2=0 then begin indx += 1; a[indx]:=a[i]; end; end; Write('Индекс четных элементов: '); For i:=1 to indx do write(a[i],' '); For i:=1 to n do Begin If A[i]<0 then Begin inc(k); end; end; Writeln; Writeln('Кoличество отрицательных элементов: ',k); For i:=1 to n do Begin If A[i] mod 3=0 then tr:=a[i]; end; Writeln('Кратное трем ',tr); indxx:=0; writeln('Индексы кратны 3: '); For i:=1 to n do Begin If a[i] mod 3=0 then begin indxx += 1; a[indxx]:=a[i]; write(' ',a[i]); end; end; end.
read(n);
for i:= 1 to n do begin
read(a[i]); write (a[i],' ');
if (a[i]<10) then sum:=sum+a[i];
if ((a[i] mod 2 <> 0) and(a[i] mod 7 = 0)) then Inc(k);
end;
writeln;
writeln(sum);
writeln(k);
end.