// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 var a:array[1..15] of integer; i,k:integer; begin Randomize; k:=0; for i:=1 to 15 do begin a[i]:=Random(20)+1; Write(a[i],' '); if a[i]>10 then k:=k+1 end; Writeln; Writeln('k=',k) end.
Мне лениво каждый раз вводить значения от руки, поэтому массив заполняется рандомно (в задаче нет четкого указания) но если нужен ввод с клавы, его нетрудно заменить: вместо A[i]:=random(20); write(A[i]:4) надо readln (A[i])
program aaa; var A: array[1..7] of integer; i: byte; begin randomize; //запускаем генератор случайных чисел
// формируем и одновременно выводим массив writeln ('Исходный массив:'); for i:=1 to 7 do begin A[i]:=random(20); //рандомное значение write(A[i]:4) //вывод массива end; writeln;
//проверяем условие и выводим номера нужных элементов: writeln ('номера нечётных элементов, стоящих на чётных местах :'); writeln; for i:=1 to 7 do if ((i mod 2)=0) and ((A[i] mod 2)=1) then writeln (i:3) end.
Результат работы программы:
Исходный массив: 13 16 7 11 11 5 17
номера нечётных элементов, стоящих на чётных местах : 4 6
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
2. А вот так учат решать в школе...
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6