1. program primer; //имя программы вроде(необязательно)
var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.
i, s: integer; //Объявление двух целочисленных переменных
begin //начало
randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)
for i:= 1 to 10 do //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
for i:= 1 to 10 do //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
s:=0; //Переменной для суммы присваивается 0
for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива
write('сумма = ',s); //вывод сообщения и значение переменной s
end. //конец
2. Дан массив 16 1 8 2 4 4
к=0
со 2 по 6 делаем
если A[i-1] >=A[i] , делаем к=к+1
1 итерация: если A1>=A2 (A1=16, A2=1, 16>1, значит к=к+1 = 1)
2 итерация: если A2>=A3 (A2=1, A3=8, 1>8? нет, значит к остается прежним)
3 итерация: 8>2? да к=2
4 итерация: 2>4? нет к=2
5: 4>=4? да к=3
выводим к=3
Const nmax=100; var a,b:array[1..nmax] of integer; i,j,n1,n2,s:integer; p:boolean; begin randomize; repeat write('Размер массива A = '); readln(n1); until n1 in [1..nmax]; writeln; writeln('Массив A: '); for i:=1 to n1 do begin a[i]:=random(15); write(a[i],' '); end; writeln; writeln; repeat write('Размер массива B = '); readln(n2); until n2 in [1..nmax]; writeln; writeln('Массив B: '); for i:=1 to n2 do begin b[i]:=random(15); write(b[i], ' '); end; s:=0; for i:=1 to n1 do begin p:=false; j:=1; while (j<=n2) and not p do if b[j]=a[i] then p:=true else inc(j); if p then inc(s,a[i]); end; writeln; writeln; writeln('Сумма = ',s); end.
