ВО В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 4, 7, 3, 8, 5, 0, 1, 2, 9, 6 соответственно, т.е. A[0] = 4, A[1] = 7 и т.д. Определите значение переменной c после выполнения следующего фрагмента этой программы. Python: c=0 for i in range( 1, 10): if A[i] c=c+1 t=A[i] A[i]=A[0] A[0]=t ВО В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 6; 9; 7; 2; 1; 5; 0; 3; 4; 8 соответственно, т.е. A[0]=6, A[1]=9 и т.д. Определите значение переменной c после выполнения следующего фрагмента этой программы. Python: c=0 for i in range (1, 10): if A[i-1]< A[i]: c=c+1 t=A[i] A[i]=A[i-1] A[i-1]=t ВО В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0, 7, 2, 1, 5, 9, 6 соответственно, т.е. A[0]=8, A[1]=4 и т.д. Определите значение переменной c после выполнения следующего фрагмента этой программы. Python c=0 for i in range(9): if A[i]>A[i+1]: c=c+1 t=A[i] A[i]=A[i+1] A[i+1]=t ВО В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 7; 5; 3; 4; 8; 8; 9; 7; 6; 2 соответственно, т.е. A[0]=7; A[1]=5 и т.д. Определите значение переменной c после выполнения следующего фрагмента программы. Python for i in range (1, 10): if A[i-1] < A[i]: t=A[i] A [i] = A[i-1] A[i-1] =t else: c=c+1 ВО В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 5; 1; 6; 7; 8; 8; 7; 7; 6; 9 соответственно, т.е. A[0]=5; A[1]=1 и т.д. Определите значение переменной c после выполнения следующего фрагмента программы Python: for i in range (1, 10): if A[i-1]>=[i]: t=A[i] A[i]=A[i-1] A[i-1]=t else: c=c+1
Ответы
// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
var x,a : longword;
begin
writeln ('Введите общую массу гречи, в граммах');
readln (x);
writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
readln (a);
writeln ('полных пакетов будет ',(x div a));
if (x mod a)=0 then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
end.
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?
var x,a : longword;
begin
writeln ('Введите общую массу гречи, в граммах');
readln (x);
writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
readln (a);
writeln ('полных пакетов будет ',(x div a));
if (x mod a)=0 then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
(1v1) v (1 v 1) v (1 v 1) найти значение выражения
Автор: loa364
Дайте определение термина удаление принтера
Автор: ea9824165833886
по информатике выполнить порядковый счет
Автор: orantus3
Модуль CRT и графика модуль GraphABC написать код , как это делать.
Автор: arnaut-anna
Опишите основные виды программ-архиваторов.
Автор: e90969692976
Рассчитать сумму чисел от 10 до 20 в ОЧЕНЬ НУЖНО ЧЕНЬ
Автор: peshnoshamon
Как решить ? "сколько цветов будет содержать палитра , если на один пиксель отводиться 4 бита памяти? объясните
Автор: Azarova Anastasiya1707
uses crt;
const n=4;
const m=5;
var
s:string;
i,j,min:integer;
A:array[1..n,1..m] of integer;
B:array[1..m] of integer;
begin
S:='*** Alphaeus is thinking... ***';
for i:=1 to length(s) do begin
write(s[i]);
for j:=1 to 500000 do s[i]:=s[i];
end;
writeln();
writeln('*** OK ***');
writeln();
writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, ');
writeln('элементами которого будут минимальные элементы в каждом столбце массива А.');
randomize;
writeln();
writeln('Массив А: ');
//Заполняем массив А случайными числами и выводим его
for i:=1 to n do begin
for j:=1 to m do
begin
A[i,j]:=random(100)-50;
write(A[i,j]:4,' ');
end;
writeln();
end;
//Находим минимальные элементы в каждом столбце и сохраняем в массив В
for j:=1 to m do begin
min:=A[1,j];
for i:=1 to n do
begin
if A[i,j]<min then min:=A[i,j];
end;
B[j]:=min;
end;
//Выводим массив В
writeln();
writeln('Mассив B: ');
for j:=1 to m do
write(B[j]:4,' ');
end.