Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности Pascal, которые позволяют решить ее в 1 строчку кода.
Задание №1:
program task1;
var a: array [1..7] of integer;
i,k: integer;
begin
randomize;
k:= 0;
for i:= 1 to 7
do begin
a[i]:= random(50)-1;
if(a[i] mod 3 = 0) then a[i]:= 0
else if(a[i] = 7) then k:= k+1;
end;
write('Массив с замененными числами: ');
println(a);
writeln('Количество элементов, равных 7: ', k);
end.
Задание №2:
begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.
const
nmax = 100;
n = 10;
var
a: array[1..nmax, 1..nmax]of integer;
var
i, j: byte;
begin
for i := 1 to N do
begin
for j := 1 to N do
begin
A[i, j] := Random(-10, 10);
write(A[i, j]:5);
end;
writeln;
end;
end.
Тестовое решение
-2 7 -10 -3 -4 6 -6 8 0 8
10 -8 10 2 -2 7 -8 -7 5 9
-4 4 3 -8 -4 -4 -8 7 1 10
-8 3 -5 0 3 -9 -7 1 -7 -4
2 2 8 -2 1 10 -7 7 6 7
-6 -2 9 8 -4 4 -6 8 -9 10
4 -3 -4 1 5 -3 7 0 10 -4
3 2 10 -1 -3 4 7 -5 2 -3
-8 -4 -9 5 6 4 4 -2 -7 9
8 -4 0 -7 3 -6 -5 -3 3 -6
(см. объяснение)
Объяснение:
Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности Pascal, которые позволяют решить ее в 1 строчку кода.
Задание №1:
program task1;
var a: array [1..7] of integer;
i,k: integer;
begin
randomize;
k:= 0;
for i:= 1 to 7
do begin
a[i]:= random(50)-1;
if(a[i] mod 3 = 0) then a[i]:= 0
else if(a[i] = 7) then k:= k+1;
end;
write('Массив с замененными числами: ');
println(a);
writeln('Количество элементов, равных 7: ', k);
end.
Задание №2:
begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.