ПОМОГИТЕ ПОЖАЛУЙСТА У МЕНЯ ТЕСТ А У МЕНЯ НИЧЕГО НЕ ПОЛУЧАЕТСЯ ОТ ЭТОГО ЗАВИСИТ МОЯ ЖИЗНЬ. 6 не делайте, оно не возможное
Примитивно, в три цикла (в основном скопировав фрагменты из пункта 5), массив статический, вывод элементов массива- в разных строках:
var i,n:integer; a:array [1..10] of integer;
begin
for i:=1 to 10 do
a[i]:=random(10,50);
for i:=1 to 10 do
Writeln(a[i]);
n:=0;
for i:=1 to 10 do
if a[i]>12 then
n:=n+1;
Write('элементов больше двенадцати: ',n)
end.
var
i,n: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10,50);
writeln(a[i]);
if a[i]>12 then n:=n+1;
end;
write('элементов больше двенадцати: ',n)
end.
var
i,n: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10,50);
write(a[i],' ');
if a[i]>12 then n:=n+1;
end;
writeln;
write('элементов больше двенадцати: ',n)
end.
var
i,n: integer;
a: array of integer := new integer[10];
begin
for i:=0 to 9 do
begin
a[i]:=random(10,50);
write(a[i],' ');
if a[i]>12 then n:=n+1;
end;
writeln;
write('элементов больше двенадцати: ',n)
end.
Ответы
Ответ:
program ArrayExample;
var
arr: array[1..10] of integer;
i, count: integer;
begin
// Заполняем массив случайными числами в диапазоне [10; 50]
randomize;
for i := 1 to 10 do
arr[i] := random(41) + 10;
// Выводим массив на экран
writeln('Сгенерированный массив:');
for i := 1 to 10 do
write(arr[i], ' ');
// Подсчитываем количество элементов, значение которых превышает 12
count := 0;
for i := 1 to 10 do
if arr[i] > 12 then
count := count + 1;
// Выводим количество элементов на экран
writeln;
writeln('Количество элементов, значение которых превышает 12: ', count);
readln;
end.
Объяснение:
Программа сначала заполняет массив случайными числами в диапазоне [10; 50] с помощью генератора случайных чисел, затем выводит его на экран и подсчитывает количество элементов, значение которых превышает 12. Наконец, программа выводит это количество на экран.
а) 4 (подробно: A[3] = 4)
б) 4 (подробно: i = 4)
в) 7 (штук)
г) -12
д) -5