#include <iostream>#include <vector>#include<windows.h>using namespace std;char bufRus[256];char* Rus(const char* text) { CharToOem(text, bufRus); return bufRus; }int main(){ vector<int> m;//объявили динамический массивint n,count,sum;count=sum=0;cout<<Rus("Введите количество элементов массива:");
cin>>n;for(int i=0;i<n;i++){ cout<<"m["<<i+1<<"]"; int temp; cin>>temp; if (temp>7){count++;sum+=temp;} m.push_back(temp); }cout<<Rus("Количество элементов: ")<<count<<endl;cout<<Rus("Сумма элементов: ")<<sum;cin>>n;return 0;}
Как видите, всё просто)
1)
var
a:array[1..50]of real;
i,n:byte;
Sn:real;
begin
write('Введите количество элементов массива: ');readln(n);
for i:=1 to n do
write('a[',i,']= '); readln(a[i]);
end;
clrscr;
writeln('Исходный массив:');
/* Вывод в строчку через запятую*/
for i:=1 to n-1 do write(a[i]:5:3,', '); write(a[n]:5:3,'.');
/*Простой вывод в столбик*/
for i:=1 to n do writeln(a[i]:5:3);
/*Сумма элементов, стоящих на четных местах*/
Sn:=0;
while i<=n do
if odd(i)=false then Sn:=Sn+a[i];
i:=i+1;
/*Вывод ответа*/
writeln('Сумма элементов, стоящих на четных местах: ',Sn:5:3);
end.
2)
i:byte;
/*количество элементов кратных 3*/
kol:=0;
if a[i] mod 3 =0 then kol:=kol+1;
writeln('Количество элементов массива, кратных трем: ',kol);
#include <iostream>
#include <vector>
#include<windows.h>
using namespace std;
char bufRus[256];
char* Rus(const char* text) {
CharToOem(text, bufRus);
return bufRus;
}
int main()
{
vector<int> m;//объявили динамический массив
int n,count,sum;
count=sum=0;
cout<<Rus("Введите количество элементов массива:");
cin>>n;
for(int i=0;i<n;i++)
{ cout<<"m["<<i+1<<"]";
int temp;
cin>>temp;
if (temp>7){count++;sum+=temp;}
m.push_back(temp);
}
cout<<Rus("Количество элементов: ")<<count<<endl;
cout<<Rus("Сумма элементов: ")<<sum;
cin>>n;
return 0;
}
Как видите, всё просто)
1)
var
a:array[1..50]of real;
i,n:byte;
Sn:real;
begin
write('Введите количество элементов массива: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= '); readln(a[i]);
end;
clrscr;
writeln('Исходный массив:');
/* Вывод в строчку через запятую*/
for i:=1 to n-1 do write(a[i]:5:3,', '); write(a[n]:5:3,'.');
/*Простой вывод в столбик*/
for i:=1 to n do writeln(a[i]:5:3);
/*Сумма элементов, стоящих на четных местах*/
Sn:=0;
while i<=n do
begin
if odd(i)=false then Sn:=Sn+a[i];
i:=i+1;
end;
/*Вывод ответа*/
writeln('Сумма элементов, стоящих на четных местах: ',Sn:5:3);
end.
2)
var
a:array[1..50]of real;
i:byte;
begin
write('Введите количество элементов массива: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= '); readln(a[i]);
end;
clrscr;
writeln('Исходный массив:');
/* Вывод в строчку через запятую*/
for i:=1 to n-1 do write(a[i]:5:3,', '); write(a[n]:5:3,'.');
/*количество элементов кратных 3*/
kol:=0;
for i:=1 to n do
if a[i] mod 3 =0 then kol:=kol+1;
/*Вывод ответа*/
writeln('Количество элементов массива, кратных трем: ',kol);
end.