Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и произведение чисел, меньших заданного с.lazarus, тема массивы

program zz1;

const n = 12;  // задаем количество элементов в массиве

var  i, k, k1, s, c:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

write(' введите заданное число ');

read(c);

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(51);

for i:=1 to n do  // выводим полученный массив на экран

write(m[i],' ');

writeln;    // переходим на новую строку для вывода ответа

for i:=1 to n do  // организуем цикл, в котором переберем все элементы массива

begin

 if i mod 2 = 1 then begin s:=s + m[i];k:=k+1;end; // получаем сумму и количество элементов на нечетных местах

 if m[i] < c then k1:=k1 + 1; // получаем количество элементов меньших заданного

end;

writeln( ' среднее арифметическое чисел стоящих на нечетных местах = ', s/k:5:2);   //выводим ответ

writeln( ' количество чисел меньших заданного С = ', k1);

end.

Объяснение:

первое задание:  1. Необходимо следить за адресами, на которые ведут ссылки. Для того чтобы узнать адрес, на который ведет ссылка необходимо просто навести на нее курсор. Если вам предлагают перейти на сайт Х, а ссылка ведет на сайт Y то тут что-то не так. Возможно, вас пытаются обмануть.

2. Перед вводом личной информации проверяйте адресную строку браузера. Если вы там увидите что то вроде vkontokte.ru вместо привычного vkontakte.ru, то можете быть уверены, что вы находитесь на поддельном сайте и у вас пытаются украсть пароль для доступа к вашему аккаунту. После получения данных злоумышленники могут использовать аккаунт для рассылки спама и вирусов вашим друзьям.

3. Не переходите по незнакомым ссылкам, которые приходят вам на почту, в «аську», или в социальные сети. Даже если ссылка пришла от знакомого человека необходимо быть максимально внимательным. Вполне возможно аккаунт вашего знакомого уже взломан, и теперь от его имени рассылают вирусы.

4. Не скачивайте неизвестные файлы, пришедшие вам на почту или в «аську», даже если файл пришел от вашего знакомого. Перед тем как скачивать такие файлы уточните у отправителя, что это за файл.

5. Современные поисковые системы и браузеры умеют предупреждать пользователя, когда он пытается зайти на сайт распространяющий вирусы. Необходимо внимательно относиться к таким предупреждениям, скорее всего сайт, который вы пытаетесь посетить, заражен.

2 задание 1  Длина пароля. Пароль должен содержать не менее 8 символов, а лучше – 10 и более.

2 Наличие цифр и букв верхнего и нижнего регистров, идущих не подряд – .

3 Наличие специальных знаков – «@», «$», «&» и т.д. (если допустимо их присутствие).

пример [email protected]

Объяснение:

1)
#include <iostream>
#include <conio.h>
#include <string>
using namespace std;
int main()
{
string str;
getline(cin, str);
for (int i = 1; i < str.length(); i++)
{
if (i % 3 == 0)
{cout << str[i] << endl;}
}
_getch();
return 0;
}
2)
#include <iostream>
#include <conio.h>
#include <string>
using namespace std;
int main()
{ string str;
getline(cin, str);
for (int i = 1; i < str.length(); i++)
{
 if (i % 2 == 0)
 { if (str[i] != 'a')
  { str[i] = 'a'; }
  if (str[i] != 'b')
  { str[i] = 'b'; }
  if (str[i] != 'c')
  { str[i] = 'c'; }
}
}
cout << str << endl;
_getch();
return 0;}