Предмет: Информатика,
автор: sakal1998
1)Составте программу подсчета нулевых элементов одно мерного массива Т(И) стоящих на нечетных местах.
2)Сотавте программу,которая в одно мерном массиве А(18) все элементы с нечетными номерами меняется на 0.
Ответы
Автор ответа:
0
const
n = 20;
var
T: array[1..n] of integer;
i, k: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0;
for i := 1 to n do
begin
T[i] := Random(11)-5;
Write(T[i]:3);
if ((i mod 2)<>0) and (T[i]=0) then Inc(k);
end;
Writeln;
Writeln('Количество нулевых элементов на нечетных местах равно ',k);
end.
Тестовое решение:
Элементы массива
2 5 -4 4 3 -2 5 -5 -1 -2 5 2 0 -5 -5 -4 -3 3 0 1
Количество нулевых элементов на нечетных местах равно 2
const
n = 18;
var
T: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
T[i] := Random(51)-25;
Write(T[i]:4);
end;
Writeln;
Writeln('Результат');
for i := 1 to n do
begin
if ((i mod 2)<>0) then T[i] := 0;
Write(T[i]:4);
end;
Writeln;
end.
Тестовое решение:
Элементы массива
23 -6 8 14 15 12 -24 20 -11 -7 4 -24 22 -19 12 -6 21 17
Результат
0 -6 0 14 0 12 0 20 0 -7 0 -24 0 -19 0 -6 0 17
n = 20;
var
T: array[1..n] of integer;
i, k: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0;
for i := 1 to n do
begin
T[i] := Random(11)-5;
Write(T[i]:3);
if ((i mod 2)<>0) and (T[i]=0) then Inc(k);
end;
Writeln;
Writeln('Количество нулевых элементов на нечетных местах равно ',k);
end.
Тестовое решение:
Элементы массива
2 5 -4 4 3 -2 5 -5 -1 -2 5 2 0 -5 -5 -4 -3 3 0 1
Количество нулевых элементов на нечетных местах равно 2
const
n = 18;
var
T: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
T[i] := Random(51)-25;
Write(T[i]:4);
end;
Writeln;
Writeln('Результат');
for i := 1 to n do
begin
if ((i mod 2)<>0) then T[i] := 0;
Write(T[i]:4);
end;
Writeln;
end.
Тестовое решение:
Элементы массива
23 -6 8 14 15 12 -24 20 -11 -7 4 -24 22 -19 12 -6 21 17
Результат
0 -6 0 14 0 12 0 20 0 -7 0 -24 0 -19 0 -6 0 17
Похожие вопросы
Предмет: Қазақ тiлi,
автор: adelya19050930
Предмет: Биология,
автор: angelinakurbanova105
Предмет: Физика,
автор: myzukababyla
Предмет: Литература,
автор: Antoha2003