1.
а)
var a, b: integer;
read(a, b);
writeln((a + b) / 2);
б)
var a, b, c, d, e: integer;
read(a, b,c, d, e);
writeln(a*a, b*b, c*c, d*d, e*e);
в) Не знаю это.
д) Решето Эратосфена.
2)
а)
array [1..n] of integer;
var c: integer;
c := 1;
read(n);
while //запускаем цикл для ввода значений массива и подсчёта произведения
read(a[n]);
c = c * a[n];
end;
writeln(c);
б)
array [1..n] of integer;
var c: integer;
read(a[0]);
c := a[0];
while //запускаем цикл для ввода значений массива и определения максимального элемента
read(a[n]);
if {
c > a[n];
} then c := a[n];
end;
writeln(c);
в)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл для ввода значений массива и определения количества отрицательных чисел
if {
a[n] < 0;
} then c := c + 1;
end;
writeln(c);
г)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл с позиции a[1] для ввода значений массива и определения количества искомых элементов
if {
a[n] = a[0];
} then c := c + 1;
end;
writeln(c);
#include <iostream>
using namespace std;
int main()
{
int a[3][3],i,j,max,min,imax,jmax,imin,jmin;
for (i=0;i<3;i++) // Ввод массива
{
for (j=0;j<3;j++)
{
cin >> a[i][j];
}
}
cout << "Введенный массив: " << endl;
for (i=0;i<3;i++) // Вывод массива
{
for (j=0;j<3;j++)
{
cout << a[i][j] << " ";
}
cout << endl;
}
max = a[0][0];
min = a[0][0];
for (i=0;i<3;i++) // Поиск макс. и мин. элементов
{
for (j=0;j<3;j++)
{
if (a[i][j] > max)
{
max = a[i][j];
imax = i;
jmax = j;
}
if (a[i][j] < min)
{
min = a[i][j];
imin = i;
jmin = j;
}
}
}
cout << "Максимальный элемент: " << max << " Его индексы: " << imax << " " << jmax << endl;
cout << "Минимальный элемент: " << min << " Его индексы: " << imin << " " << jmin;
}
Вывод программы:3 4 5 9 5 3 1 5 5 (Это ввод массива)
Введенный массив:
3 4 5
9 5 3
1 5 5
Максимальный элемент: 9 Его индексы: 1 0 (Нумерация с 0)
Минимальный элемент: 1 Его индексы: 2 0
