Delphi 7 В одновимірному масиві знайти суму елементів, що більші 10, і мають
парні індекси.

Question

Информатика: Delphi 7 В одновимірному масиві знайти суму елементів, що більші 10, і мають парні індекси.

skripalevadiana · Accepted Answer

Обычно решают на Pascal, но я напишу на C++, он мне роднее)). Я конечно немножко по-другому реализовал (в плане ввода значений), но поставленную задачу выполняет.
1)
#include <stdio.h>
#inlcude <conio.h>
#include <iostream>
using namespace std;
int main()
{
long a, b, i, sum=0;
cin>>a; // Вводишь число a
cin>>b; // Вводишь число b
for (i=a;i<=b;i++)
{
sum=sum+(i*i);
}
cout<<sum; // выводим сумму квадратов чисел
_getch();
}

2)
#include <stdio.h>
#inlcude <conio.h>
#include <iostream>
using namespace std;
int main()
{
long a,b,c,d,i;
bool z=false;
cin>>a;
cin>>b;
cin>>c;
cin>>d;
for (i=10000; i<=99999; i++)
{
if (i % a==b && i % c==d) {z=true; cout<<i<<" ";}
}
if (z==false) {cout<<"-1";} // Выводится если нет чисел
_getch();
}

Delphi 7 В одновимірному масиві знайти суму елементів, що більші 10, і мають парні індекси.

MOGZ ответил

Delphi 7 В одновимірному масиві знайти суму елементів, що більші 10, і мають
парні індекси.