Ответ:
var n,i,a,s,k:Integer;
begin
Write('Введите количество чисел ');
Readln(n);
for i:=1 to n do
begin
Write('Введите целое число ');
Readln(a);
if a mod 2 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
Write('Среднее арифметическое чётных чисел равно ',s/k)
end.
Объяснение:
n - количество целых чисел, которые будут вводиться
i - счётчик цикла
a - вводимое целое число
s - сумма чётных чисел
k - количество чётных чисел
1) Совокупление живых особей (передача днк и продолжение рода)
2) обезьяньи крики (общение)
3) Перенос информации на флеш-накопителе
4) Радиоволны
5) Ультразвук у летучих мышей
uses crt;
var i,z:integer;
begin
clrscr;
i:=0;
while i<100 do
begin
if i mod 11=0 then z:=z+i;
i:=i+1;
end;
writeln('Summa= ',z);
readln();
end.
А33 это оно. и b)7. правильный b)7
#include <iostream>
#include <iomanip>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUSSIAN");
int arr[] = { 2, 5, 0, 4, 7, 0, 3, 0, 0, 1 };
int max = arr[0];
int maxind = 0;
for (int i = 0; i < 10; i++)
{
cout << arr[i] << " ";
if (max < arr[i])
{
max = arr[i];
maxind = i;
}
}
cout << endl << "Максимальный элемент: " << max << endl;
cout << "Номера элементов равных нулю, стоящих после максимального: ";
for (int i = maxind; i < 10; i++)
if (arr[i] == 0)
cout << i << " ";
cout << endl;
system("pause");
}