Const n=15;
var a,s:array [1..100] of integer;
i,j:integer;
begin
for i:=1 to n do begin
a[i]:=random(15);
write(a[i],' ');
end;
j:=1;
writeln;
writeln('Полученный массив');
for i:=1 to n do begin
if (a[i] mod 2 = 0) and (a[i]>0) then begin
inc(j);
s[j]:=a[i];
write(s[j],' ');<span>
end;
end;</span>
Варианты в листах 1 и 2
Можно подобрать, изменив тип диаграммы другой вид.
Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.
#include <iostream>
using namespace std;
int main()
{
int a,b,c,k;
cin>>a;
cin>>b;
cin>>c;
k=0;
for(int i=a;i<=b;i++) if((i*c)%2==0)k=k+1;
cout<<k<<endl;
return 0;
}
Я не знаю нужны тебе вопросы или слова,но вот схема