Массивы( 4. найти все элементы кратные 3 или 5. сколько их? 5. найти количество всех четных элементов массива, стоящих на четных местах, то есть имеющих четные номера. решить
Не знаю, какой язык нужен, так что пусть будет паскаль. В обоих случаях предполагается, что есть заполненный массив A с индексами от 1 до n. i - целочисленная цикловая переменная. k - целочисленная переменная, куда записывается ответ
4) k := 0; for i := 1 to n do if (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then begin write(A[i],' '); {вывод на экран - т.к. требуется найти элементы} k := k + 1 {элемент учитывается в счетчике} end; writeln; write(k) {количество таких элементов}
5) k := 0; for i := 1 to n do if (A[i] mod 2 = 0) and (i mod 2 = 0) then k := k + 1; write(k)
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,n,i,s:integer; begin write('Число элементов последовательности '); readln(n); for i:=1 to n do begin write(i,' элемент последовательности = ');readln(a); if (a mod 2 <>0) then s:=s+a; end; writeln('Сумма нечетных = ',s); end.
Тестовое решение: Число элементов последовательности 5 1 элемент последовательности = 3 2 элемент последовательности = 2 3 элемент последовательности = 4 4 элемент последовательности = 1 5 элемент последовательности = 5 Сумма нечетных = 9
//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
В обоих случаях предполагается, что есть заполненный массив A с индексами от 1 до n.
i - целочисленная цикловая переменная.
k - целочисленная переменная, куда записывается ответ
4)
k := 0;
for i := 1 to n do
if (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then
begin
write(A[i],' '); {вывод на экран - т.к. требуется найти элементы}
k := k + 1 {элемент учитывается в счетчике}
end;
writeln;
write(k) {количество таких элементов}
5)
k := 0;
for i := 1 to n do
if (A[i] mod 2 = 0) and (i mod 2 = 0) then
k := k + 1;
write(k)