1) задан массив из n элементов. вычислить среднее арифметическое тех элементов, которые кратны 3. 2) задан массив из n элементов. сформировать новый массив из элементов, кратных 7.

За 2 программы мог бы и побольше пкт 1) program 1z; var a: array [1..100] of integer; n, i: byte; sa, t: real; begin readln (n); for i: = 1 to n do begin readln (a[i]); if a[i] mod 3 = 0 then begin sa: =sa+a[i]; t: =t+1; end; end; sa: =sa/k; writeln (sa); readln; end. 2) program 2z; var a, b: array [1..100] of integer; i, s, n: byte; begin readln (n); for i: =1 to n do begin readln (a[i]); if a[i] mod 7 = 0 then begin s: =s+1; b[s]: =a[i]; writeln (b[s]); end; end; end.

Методическая разработка содержит 15 лабораторных работ на темы:

-работа с формами

- разработка приложения с компонентами ввода и отображения информации

- использование компонентов для работы со списками

- использование компонентов переключателей

- использование компонентов для создания главного и вс меню

- использование стандартных диалоговых окон

- использование компонентов для работы с файлами и каталогами

- обработка исключительных ситуаций

-создание справвочной системы приложения

- создание псевдонима базы данных. Работа с полями набора данных. Технология BDE.

- оабота с таблицами. Навигация по набору данных.

- осуществление поиска и фильтрации набора данных.

- поиск данных с статических и динамических запросов.

- создание отчета

цифры трёхзначного числа n: n div 100; n div 10 mod 10; n mod 10

проверка на чётность: n.iseven или n mod 2 = 0

pascalabc.net:

begin

  var n : = readinteger;

  var a : = n div 100;

  var b : = n div 10 mod 10;

  var c : = n mod 10;

  if (a mod 2 = 0) then write(a);

  if (b mod 2 = 0) then write(b);

  if (c mod 2 = 0) then write(c);

end.

пример ввода: 190

пример вывода: 0

пример ввода: 228

пример вывода: 228

пример ввода: 173

пример вывода: (пустая строка)