{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5} 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.
История ИИТ начинается с середины 1970-х годов и связывается с совместным практическим применением интеллектуальных информационных систем, систем искусственного интеллекта, систем поддержки решений и информационных систем. История ИИТ связана также с развитием трех научных направлений: компьютерной философии, компьютерной психологии и продвинутой компьютерной науки (Advanced computer science) и дополняется прогрессом в создании:
1. ситуационных центров
2. информационно-аналитических систем
3. инструментариев эволюционных вычислений и генетических алгоритмов
4. систем поддержки общения человека с компьютером на естественном языке
5. когнитивным моделированием
6. систем автоматического тематического рубрицирования документов
7. систем стратегического планирования
8. инструментариев технического и фундаментального анализа финансовых рынков
9. систем менеджмента качества
10. систем управления интеллектуальной собственностью и др.
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.
История ИИТ начинается с середины 1970-х годов и связывается с совместным практическим применением интеллектуальных информационных систем, систем искусственного интеллекта, систем поддержки решений и информационных систем. История ИИТ связана также с развитием трех научных направлений: компьютерной философии, компьютерной психологии и продвинутой компьютерной науки (Advanced computer science) и дополняется прогрессом в создании:
1. ситуационных центров
2. информационно-аналитических систем
3. инструментариев эволюционных вычислений и генетических алгоритмов
4. систем поддержки общения человека с компьютером на естественном языке
5. когнитивным моделированием
6. систем автоматического тематического рубрицирования документов
7. систем стратегического планирования
8. инструментариев технического и фундаментального анализа финансовых рынков
9. систем менеджмента качества
10. систем управления интеллектуальной собственностью и др.
Объяснение: