Задан двумерный массив с именем b размером 4*2,с случайных чисел на промежутке [-8; 10]. найти количество элементов массива кратных 3 в нечетных строках массива. составить блок-схему, трассировку, программу.
Dim b(4,2) for i=1 to 4 step 2 for j=1 to 2 b(i,j)=int(RND*10-8) print b(i,j); next j print next i kol=0 for i=1 to 4 step 2 for j=1 to 2 if b(i,j) mod 3=0 then kol=kol+1 end if next j next i print kol
var a,k,s: integer; begin read(a); k := 0; s := 0; while a mod 2 <> 0 do begin if abs(a) mod 10 > 5 then s := s + a; a := abs(a); if (a > 9) and (a < 100) then k := k + 1; read(a); end; writeln('k=',k,', s=',s) end.
{2}
var n,i,p,a: integer; begin read(n); p := 1; for i := 1 to n do begin read(a); if (a > 0) and (a mod 3 = 0) then p := p * a; end; writeln('p=',p) end.
{3}
var n,a,i,k,s: integer; begin read(n); k := 0; s := 0; for i := 1 to n do begin read(a); if a > 0 then begin s := s + a; k := k + 1; end; end; if k = 0 then k := 1; writeln('s=',s/k) end.
Const nn=100; var n,i,k,s:integer; a:array[1..nn] of integer; begin Write('Количество элементов в массиве: '); Read(n); Randomize; Writeln('Сформированный массив'); k:=0; s:=0; for i:=1 to n do begin a[i]:=Random(100); Write(a[i],' '); if (a[i] in [51..59]) then begin s:=s+a[i]; Inc(k) end end; Writeln; Writeln('На интервале [51..59] найдено элементов - ',k); Writeln('Их сумма равна ',s) end.
Пример выполнения программы Количество элементов в массиве: 20 Сформированный массив 26 65 64 80 46 0 54 38 63 14 63 81 40 42 17 16 23 88 61 54 На интервале [51..59] найдено элементов - 2 Их сумма равна 108
Замечание Если конструкция a[i] in [51..59] кажется незнакомой, её можно заменить на более длинную и менее эффективную (a[i]>50) and (a[i]<60)
for i=1 to 4 step 2
for j=1 to 2
b(i,j)=int(RND*10-8)
print b(i,j);
next j
print
next i
kol=0
for i=1 to 4 step 2
for j=1 to 2
if b(i,j) mod 3=0 then
kol=kol+1
end if
next j
next i
print kol