Решение данной задачи для n-го кол-ва элементов(если надо 3, то просто присвой n=3) на языке C/C++ :
#include <iostream> using namespace std; int main() { int n; // обьявление переменной под размер миссива cin>>n; // или n=3, если тебе надо всего 3 элемента ввести int mas[n]; // обьявление массива for(int i=0;i<n;i++) cin>>mas[i]; // занесение элементов в массив int sum=0, count=0; // переменная под сумму положительных и их кол-во for(int i=0;i<n;i++) { if(mas[i]>0) { sum+=mas[i]; count++; } cout<<sum/count; // вывод результата через формулу сумма/кол-во return 0; }
В первой задаче находятся все 4-значные числа, а не только симметричные. Паскаль АВС.
Program Ilgiz98; var i: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Программа находит 4-значные числа, которые делятся на 27'); writeln('Список таких чисел:'); for i:=1000 to 9999 do if (i mod 27)=0 then writeln(i); end.
Program Ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5'); write('Введите число N '); readln (n); writeln('*** Вычисляю... ***'); k:=0; writeln('Массив чисел:'); for i:=1 to 20 do begin mass[i]:=random(1000)-500; writeln(mass[i]); if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1; end; writeln(); writeln('Всего найдено ',k,' таких чисел'); end.
Program Ilgiz98; var i: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Программа находит 4-значные числа, которые делятся на 27'); writeln('Список таких чисел:'); for i:=1000 to 9999 do if (i mod 27)=0 then writeln(i); end.
Program Ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5'); write('Введите число N '); readln (n); writeln('*** Вычисляю... ***'); k:=0; writeln('Массив чисел:'); for i:=1 to 20 do begin mass[i]:=random(1000)-500; writeln(mass[i]); if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1; end; writeln(); writeln('Всего найдено ',k,' таких чисел'); end.
#include <iostream>
using namespace std;
int main()
{
int n; // обьявление переменной под размер миссива
cin>>n; // или n=3, если тебе надо всего 3 элемента ввести
int mas[n]; // обьявление массива
for(int i=0;i<n;i++)
cin>>mas[i]; // занесение элементов в массив
int sum=0, count=0; // переменная под сумму положительных и их кол-во
for(int i=0;i<n;i++)
{
if(mas[i]>0)
{
sum+=mas[i];
count++;
}
cout<<sum/count; // вывод результата через формулу сумма/кол-во
return 0;
}