ИНФА ДАЮ В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.for i:=0 to 10 doA[i]:=i;for i:=0 to 5 do beginA[5-i]:=A[5+i];A[2+i]:=A[10-i]; end;Чему будут равны элементы этого массива?В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.for i:=0 to 10 doA[i]:=i-1;for i:=10 downto 1 doA[i-1]:=A[i];Чему будут равны элементы этого массива?В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленная переменная i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i:=0 to 10 do A[i]:=i+1;for i:=1 to 10 do A[i]:=A[i-1]; Чему будут равны элементы этого массива?В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:s:=0;n:=10;for i:=1 to n do begins:=s+A[i]-A[i-1];end;В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т.е. А[0]=0, А[1]=2 и т.д. Чему будет равно значение переменной s после выполнения данной программы?В программе описан одномерный целочисленный массив A, в представленном фрагменте программы обрабатываются элементы массива с индексами от 1 до 24.n:=24;A[1]:=4;for i:= 2 to n do beginA[i] := 4*A[i–1] mod 10;end;Чему будет равен элемент массива A[24] после выполнения данной программы?В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 1, 2, 4, 3, 5, 6, 8, 7, 3, 4, т.е. A[0]=1, A[1]=2 и т.д. Определите значение переменной s после выполнения следующего фрагмента программы:s := 0;for i:=1 to 9 do if A[i-1] < A[i] then beginA[i] := A[i-1] + 1;s := s + 1end.
Ответы
Полагаю, Pascal ABC.
//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.
//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.
//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.
//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.
Я бы сделал так:
Загоняем все 5 чисел в массив. Делаем сортировку. В итоге получаем, что в массиве в интервале massiv[0]..massiv[3] будут лежать минимальные числа. Берем их, суммируем, получаем минимально возможную сумму.
Аналогично и с максимальной, только суммировать будем с massiv[1]..massiv[4].
Код будет примерно такой:
int max_possible_sum(char *massiv[5]){
for (int i = 1; i <5; ++i) {
int sum += massiv[i];
}
return sum;
}
Аналогично и для самой малой суммы:
int min_possible_sum(char *massiv[5]){
for (int i = 0; i <4; ++i) {
int sum += massiv[i];
}
return sum;
}
Загоняем все 5 чисел в массив. Делаем сортировку. В итоге получаем, что в массиве в интервале massiv[0]..massiv[3] будут лежать минимальные числа. Берем их, суммируем, получаем минимально возможную сумму.
Аналогично и с максимальной, только суммировать будем с massiv[1]..massiv[4].
Код будет примерно такой:
int max_possible_sum(char *massiv[5]){
for (int i = 1; i <5; ++i) {
int sum += massiv[i];
}
return sum;
}
Аналогично и для самой малой суммы:
int min_possible_sum(char *massiv[5]){
for (int i = 0; i <4; ++i) {
int sum += massiv[i];
}
return sum;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
4 санына сәйкес келетін екілік кодын анықта
Автор: zolotayaoxana1982
Нужна только функция ЕСЛИ халявщики лесом!
Автор: samogon-mozhaisk
Визначте значення змінної «a»після виконання фрагмента програми очень нужно Ш
Автор: Инна_Nina1182
Плез Информатика 8 класс
Автор: tsigankova2018
Поставить таблицы истинности: а) F =( AVB) & (¬A&B)
Автор: Татьяна902
изи
Объяснение:
изи 1 123213
круто