Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 9. заменить все элементы массива равные 7 единицами. вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Var i:integer; a:array[1..7]of integer; begin writeln('Исходный массив:'); for i:=1 to 7 do begin a[i]:=random(5,9); write(a[i]:4); end; writeln; for i:=1 to 7 do if a[i]=7 then a[i]:=1; writeln('Преобразованный массив:'); for i:=1 to 7 do write(a[i]:4); end.
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом, представляя язык, автор указывал в качестве цели его создания — построение небольшого и эффективного языка хорошему стилю программирования, использующемуструктурное программирование и структурированные данные.
procedure EnterMas(var Mas: Matrix); var i, j: integer; begin randomize; for i := 1 to n do for j := 1 to m do Mas[i, j] := random(100); end;
procedure GiveMas(var Mas: Matrix); var i, j: integer; begin for i := 1 to n do begin for j := 1 to m do begin write(Mas[i, j], ' '); end; writeln; end; end;
function SumStroki(Mas: Matrix; i, k: integer): integer; var j, sum: integer; begin sum := 0; for j := 1 to m do Sum := Sum + Mas[i, j]; SumStroki := sum - k; end;
function Element(var Mas: Matrix): integer; var i, j, count: integer; begin count := 0; for i := 1 to n do for j := 1 to m do if Mas[i, j] > SumStroki(Mas, i, Mas[i, j]) then inc(count); Element := count; end;
var Mas: Matrix; Sum, Max: integer;
begin EnterMas(Mas); GiveMas(Mas); writeln('Кол-во особых элементов ', Element(Mas)); end.
i:integer;
a:array[1..7]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 7 do
begin
a[i]:=random(5,9);
write(a[i]:4);
end;
writeln;
for i:=1 to 7 do
if a[i]=7 then a[i]:=1;
writeln('Преобразованный массив:');
for i:=1 to 7 do
write(a[i]:4);
end.