var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
1. Для борщу треба солити картофель.
(сОлИти-сІль)
2. У берези є сік, але я його не пив.
(берЕзи)
3. Математики люблять складні задачі.
(любОв - лЮблять)
4. Коли виходить новий художній фільм?
(вихОдить-вИход)
5. Я обіцяю - далі все буде добре.
(дОбре-добрО)
Ответ:
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int mas[20];
int a=0;
int kol = 0;
for (int i = 0; i < 20; i++)
{
cin >> mas[i];
}
for (int i = 0; i < 20; i++)
{
if (mas[i] > 5)
{
kol++;
a = i+1;
cout <<"Положение элемента"<< a << endl;
}
}cout <<"Количество больше 5" <<kol << endl;
system("pause");
return 0;
}
Объяснение: