program ArrayZ; uses CRT; // Подключение модуля CRT var z: array[1..4, 1..3] of integer; // Массив i, j, n, o: integer;// Переменные для циклов и счета отрицательных и нечетных элементов begin randomize; // Нужно для turbopascal // Заполнение массива for i := 1 to 4 do begin writeln; // Переход на другую строку for j := 1 to 3 do begin z[i, j] := random(60) - 30; // Рандомное заполнение массива write(z[i, j]:8); // Вывод в консоль массива end; end; // Нахождение отрицательных и нечетных элементов for i := 1 to 4 do for j := 1 to 3 do begin if z[i, j] mod 2 <> 0 then // Нахождение нечетных элементов n := n + 1; if z[i, j] < 0 then // Нахождение отрицательных элементов o := o + 1; end; writeln; // Переход строки чтобы не было конфликтов writeln('Нечетных элементов: ', n, ' | Отрицательных элементов: ', o); // Вывод результатаend.
Procedure Ball(x,y:integer); begin circle(x,y,15); floodfill(x,y,clRed); end;
begin lockdrawing; for i:=1 to 20 do begin boy(100,200); Ball(100+i*5,200-i*5); ellipse(200,115,250,140); RedRaw; ClearWindow(clWhite); end; for i:=1 to 5 do begin boy(100,200); Ball(200+i*5,100+i*5); ellipse(200,115,250,140); RedRaw; ClearWindow(clWhite); end; for i:=1 to 25 do begin boy(100,200); Ball(225,125+i*5); ellipse(200,115,250,140); RedRaw; ClearWindow(clWhite); end; end.
Объяснение:
uses Crt;
const n=10;
type Mas = array [1..n] of integer;
var A, B: Mas;
i,k: integer;
begin
ClrScr; Randomize; k:=0;
for i:=1 to n do
begin
A[i]:=1+random (100);
if (A[i] mod 5 =0) then begin
k:=k+1;
B[k]:=A[i];
end;
end;
WriteLn(' Исходный массив: ');
for i:=1 to n do Write(A[i]:5);WriteLn;
WriteLn(' Исхомый массив: ');
for i:=1 to k do Write(B[i]:5);WriteLn;
ReadLn;
end.