Var a:array of integer; i,n:integer; begin //Заполняем массив сл. числами и выводим //Нумерация массива с 0 write('Число элементов массива ');readln(n); setlength(a,n); for i:=0 to n-1 do begin a[i]:=random(41)-20; write(a[i]:4); end; writeln; //Вывод номеров четных элементов for i:=0 to n-1 do if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i ); end.
#include <iostream>
using namespace std;
int main()
{
int a1 = 2;
int d = -2;
int amount = 0;
int n;
cin >> n;
for (int i = 0; i < n; i++)
{
amount += a1;
cout << a1 << " ";
a1 += d;
}
cout << endl << amount;
}
Объяснение:
#include <iostream> // Библиотека ввода - вывода
using namespace std; // Пространство имён
int main()
{
int a1 = 2; // Первый элемент = 2
int d = -2; // Разность = -2
int amount = 0; // Сумма = 0
int n; // Создание целочисленной переменной n
cin >> n; // Ввод с клавиатуры
for (int i = 0; i < n; i++) // Идём от нуля до n
{
amount += a1; // Суммируем элемент
cout << a1 << " "; // Выводим элемент
a1 += d; // Узнаём следующий элемент прогрессии
}
cout << endl << amount; // Выводим сумму
}
i,n:integer;
begin
//Заполняем массив сл. числами и выводим
//Нумерация массива с 0
write('Число элементов массива ');readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
//Вывод номеров четных элементов
for i:=0 to n-1 do
if a[i] mod 2 = 0 then writeln(a[i]:4, ' номер: ',i );
end.
Тестовое решение:
Число элементов массива 10
-5 14 3 13 4 1 18 7 12 -14
14 номер: 1
4 номер: 4
18 номер: 6
12 номер: 8
-14 номер: 9