Заповніть таблицю, указавши, у яких сферах людської діяльності використовуються такі інформаційні технології:
Сфери людської діяльності
Інформаційні технології
Опрацювання текстових документів
Опрацювання числових повідомлень
Опрацювання звуку
Опрацювання відео
Передавання даних комп'ютерними
мережами
Комп'ютерна графіка
#include "pch.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
const int dlinna = 14, dlinna2 = 9 ;
int arr[dlinna],chetnie = 0;
cout << "Введите значения массива на 14 элементов!" << endl;
for (int i = 0; i < dlinna; ) {
cin >> arr[i];
if (arr[i] % 2 == 0) {
chetnie++;
}
i++;
}
cout << "Количество четных элементов массива = " << chetnie << endl << endl;
int arr2[dlinna2];
int min= 2147483647, max=-2147483647;
cout << "Теперь введите значения массива на 9 элементов !" << endl;
for (int j = 0; j < dlinna2; j++) {
cin >> arr[j];
if(arr[j] < min) {
min = arr[j];
}if (arr[j] > max) {
max = arr[j];
}
}
cout << "Минимальный элемент массива = " << min << endl;
cout << "Максимальный элемент массива = " << max << endl;
}
Program z567;
Var a: array [1..30] of integer;
b: array [1..20] of integer;
i,max,p,min:integer; s:real;
Begin
for i:=1 to 30 do
a[i]:=random(10)-5;
for i:=1 to 20 do
b[i]:=random(10);
for i:=1 to 30 do
write(a[i],' ');
p:=1;
for i:=1 to 30 do
if (a[i] > 0) then p:=p*a[i];
writeln('');
writeln('1-ое задание: ', p);
for i:=1 to 20 do
write(b[i],' ');
max:=b[1];
for i:=2 to 19 do
if (b[i] > max) then max:=b[i];
min:=b[1];
for i:=2 to 19 do
if (b[i] < min) then min:=b[i];
s:=(min+max)/2;
writeln('');
writeln('2-ое задание: ', s);
End.