Срочно!
1. Дан массив, состоящий из 15 элементов. Элементы вводятся случайным образом. Найти количество элементов, кратных 3. (промежуток от 10 до 30)
2. Дан массив, состоящий из 10 элементов. Элементы вводятся случайным образом из промежутка от [-10,+10]. Найти количество элементов, которые четны и положительны {используем в условии связку и=and}
в виде программы для Паскаля!
1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
