#include <stdlib.h>
#include <time.h>
#include <iostream>
using namespace std;
#define N 16
void main()
{
int randomNumbers[N];
srand(time(NULL));
for (int i = 0;i < N; i++)
{
randomNumbers[i] = rand() % 40 - 20;
cout << "randomNumber[" << i << "] = " << randomNumbers[i] << endl;
}
cout << endl;
int counter = 0;
for (int i = 0; i < N; i++)
{
if (randomNumbers[i] < 0)
{
counter++;
}
}
cout << "counter = " << counter << endl;
}
type
firma = record
fam:string;
adres:string;
end;
var
mas:array[1..8] of firma;
i,k:integer;
str:string;
begin
mas[1].fam:='Кузин';
mas[2].fam:='Куравлев';
mas[3].fam:='Кудин';
mas[4].fam:='Кульков';
mas[5].fam:='Кубиков';
mas[6].fam:='Иванов';
mas[7].fam:='Петров';
mas[8].fam:='Сидоров';
mas[1].adres:='ул.Мира,7';
mas[2].adres:='ул.Маркса,6';
mas[3].adres:='ул.Комсомольская,17';
mas[4].adres:='ул.Ленина,5';
mas[5].adres:='ул.Центральная,18';
mas[6].adres:='ул.Клубная,26';
mas[7].adres:='ул.Чехова,2';
mas[8].adres:='ул.Амосова,68';
write('Введите фамилию сотрудника -> ');readln(str);
k:=0;
for i:=1 to 8 do
begin
if str=mas[i].fam then
begin
k:=k+1;
writeln('фамилия - ',mas[i].fam);
writeln('адрес - ',mas[i].adres);
end;
end;
if k=0 then writeln('такого сотрудника нет!');
readln;
end.
Объяснение:
Это ответ на задание 2
Qiwi +79172489972