Срочно! 1. Дан массив, состоящий из 15 элементов. Элементы вводятся случайным образом. Найти количество элементов, кратных 3. (промежуток от 10 до 30) 2. Дан массив, состоящий из 10 элементов. Элементы вводятся случайным образо...
Срочно!
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.
Не нашли ответ?
Похожие вопросы