Выполняем на компьютере В MS Excel создайте БД «Мои друзья» на примере
следующей таблицы.
Дата
No Фамилия Имя Отчество
Город
рождения
1 Абылай Венера Бериковна 22.03.2004 Нур-Султан
2 Жапаров Кайрат Абаевич 02.12.2004 Алматы
3 Раева Жанна Жакеевна. 13.04.2003 Алматы
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.