Синформатикой 9 ! дан массив из 8ми элементов. нужно распечатать те элементы,которые кратны 3м и все нечетные числа. и выяснить чего больше (чисел кратным 3м или нечетных чисел)?
Program n1; var a: array[1..8] of integer; i,k3,kn: integer; begin randomize; write('исходный массив: '); k3:=0; kn:=0; for i:=1 to 8 do begin a[i]:=random(21)-10; write(a[i],' '); if a[i] mod 3=0 then k3:=k3+1; if a[i] mod 2<>0 then kn:=kn+1; end; writeln; write('кратные 3: '); for i:=1 to 8 do if a[i] mod 3=0 then write(a[i],' '); writeln; write('нечетные: '); for i:=1 to 8 do if a[i] mod 2<>0 then write(a[i],' '); writeln; if kn>k3 then write('нечетных больше') else if k3>kn then write('кратных 3 больше'); end.
1.Зрительная память отвечает за сохранение и воспроизведение зрительных образов. Ты знаешь, как выглядит роза. 2.Моторная память отвечает за сохранение информации о моторных функциях. Ты знаешь, как закидывать мячи в баскетбольную корзину. 3. Эпизодическая память — память о событиях, участниками или свидетелями которых мы были. Ты помнишь, как отмечал ДР в 11 лет. 4.Семантическая память — память о таких фактах, как таблица умножения или значение слов. 5.Процедурная память, или запоминание того, как нужно что-то делать, имеет некоторые сходства с моторной памятью. Ты знаешь, как пользоваться циркулем. 6.Топографическая память ориентироваться в пространстве, распознавать путь и следовать маршруту, признавать знакомые места. Ты не заблудишься в знакомом лесу.
var a: array[1..8] of integer;
i,k3,kn: integer;
begin
randomize;
write('исходный массив: ');
k3:=0;
kn:=0;
for i:=1 to 8 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i] mod 3=0 then k3:=k3+1;
if a[i] mod 2<>0 then kn:=kn+1;
end;
writeln;
write('кратные 3: ');
for i:=1 to 8 do if a[i] mod 3=0 then write(a[i],' ');
writeln;
write('нечетные: ');
for i:=1 to 8 do if a[i] mod 2<>0 then
write(a[i],' ');
writeln;
if kn>k3 then write('нечетных больше') else if k3>kn then
write('кратных 3 больше');
end.