begin writeln('Введите диапазон:'); write('От:'); var a:= ReadInteger; // Ввод а с целым типом write('До:'); var b:= ReadInteger; // Ввод б с целым типом
var m:array[1..10] of integer; // описание массива
writeln('Начальный массив: '); for var i:=1 to 10 do // генерация и вывод массива begin m[i]:=random(a,b); write(m[i]:4); end;
writeln;
for var i:=1 to 2 do // переворот первой части обмена 1 с 5, 2 с 4) begin var t:=m[i]; m[i]:=m[6-i]; m[6-i]:=t; end;
for var i:=6 to 7 do // переворот второй части обмена 6 с 10, 7 с 9) begin var t:=m[i]; m[i]:=m[16-i]; m[16-i]:=t; end; writeln('Измененный массив:'); // вывод измененного массива for var i:=1 to 10 do write(m[i]:4); end.
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.
//Версия 3.3. сборка 1583 (25.11.2017)
begin
writeln('Введите диапазон:');
write('От:'); var a:= ReadInteger; // Ввод а с целым типом
write('До:'); var b:= ReadInteger; // Ввод б с целым типом
var m:array[1..10] of integer; // описание массива
writeln('Начальный массив: ');
for var i:=1 to 10 do // генерация и вывод массива
begin
m[i]:=random(a,b);
write(m[i]:4);
end;
writeln;
for var i:=1 to 2 do // переворот первой части обмена 1 с 5, 2 с 4)
begin
var t:=m[i];
m[i]:=m[6-i];
m[6-i]:=t;
end;
for var i:=6 to 7 do // переворот второй части обмена 6 с 10, 7 с 9)
begin
var t:=m[i];
m[i]:=m[16-i];
m[16-i]:=t;
end;
writeln('Измененный массив:'); // вывод измененного массива
for var i:=1 to 10 do
write(m[i]:4);
end.
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.