Информатика | 10 - 11 классы
Дан целочисленный массив из 40 элементов.
Элементы массива могут принимать значения от - 10000 до 10000.
Написать алгоритм, который находит и выводит среднее арифметическое всех отрицательных элементов массива, оканчивающихся цифрой 7.
Гарантируется, что хотя бы один такой элемент в массиве есть.
Исходные данные объявлены так, как показано ниже.
Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
Const N = 40
var
a : array [1.
N] of integer ;
i, s, r, x : integer ;
sr : real ;
begin
for i : = 1 to N do readln (a[i]) ;
.
End. .
1)Ввести массив A из 25 элементов?
1)Ввести массив A из 25 элементов.
Cформировать массив B из элементов массива А, кратных трем.
2)Даны массив A и B из n элементов.
Cформировать массив C из элементов массивов А и B, чередуя элементы.
Помогите изменить массив :Дан одномерный целочисленный массив mas?
Помогите изменить массив :
Дан одномерный целочисленный массив mas.
Поменять местами два элемента массива с номерами k1 и k2, если оба этих элемента чётны.
Иначе – запросить у пользователя индекс ещё одного элемента k 3 и поменять его местами с первым элементом массива.
Вывести на экран итоговый массив в строку.
Массив :
Program pr1 ;
Var i, N, k1, k2, R : integer ; mas : array[1.
100]of integer ;
Begin Writeln ('Введите число элементов массива (N.
ПаскальДана матрица (двумерный массив) размером 20 × 20?
Паскаль
Дана матрица (двумерный массив) размером 20 × 20.
Каждый элемент может принимать
целочисленные значения от 0 до 200.
Опишите на русском языке или на одном из языков
программирования алгоритм, который позволяет определить, является ли данная матрица
симметричной относительно своей главной диагонали.
Исходные данные объявлены так, как
показано ниже.
Запрещается использовать переменные, не описанные ниже, но разрешается не
использовать часть из них.
Паскаль Бейсик
const N = 20 ;
var
a : array [0.
N - 1, 0.
N - 1]
of integer ;
i, j : integer ;
begin
for i : = 0 to N - 1 do
for j : = 0 to N - 1 do
readln(a[i, j]) ;
.
End.
В одномерном массиве на 10 элементов, сформированном через генератор случайных чисел, найти средне - арифметическое среди наибольшего и наименьшего элемента массива?
В одномерном массиве на 10 элементов, сформированном через генератор случайных чисел, найти средне - арифметическое среди наибольшего и наименьшего элемента массива.
Начертить алгоритм и написать программу.
Дан целочисленный массив из 10 элементов?
Дан целочисленный массив из 10 элементов.
Написать программу, которая находит количество пар элементов массива в которых хотя бы одно число делится на 3.
Под парой подразумевается два идущих подряд массива например 6 ; 2 ; 9 ; - 3 ; 6 ответ 4.
Помогите пожалуйстааа.
ПАСКАЛЬ?
ПАСКАЛЬ.
1)дан целочисленный массив из 30 элементов.
Элементы массива могут принимать целые значения от 0 до 1000.
Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти среднее арифметическое нечетных трехзначных чисел, записанных в этом массиве.
Если ни одного такого числа нет, нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.
Элементы массива могут принимать целые значения от 0 до 100.
Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют четное значение и не оканчиваются на 0.
Помогите с Паскалемconst N = 40 ;vara : array[1?
Помогите с Паскалем
const N = 40 ;
var
a : array[1.
N] of integer ;
i, j, s : integer ;
st : real ;
begin
for i : = 1 to N do readln(a[i]) ;
Помогите срочно?
Помогите срочно!
Нужно набрать программу, которая выводит 2 массива и находит сумму элементов этих массивов.
«Даны два многомерных массива.
Найти их разность С = А - В.
».
Задание 1Нахождение суммы (произведения, количества) элементов (обладающих заданным свойством)?
Задание 1
Нахождение суммы (произведения, количества) элементов (обладающих заданным свойством).
Заполнить одномерный массив А из 10 элементов случайными числами из отрезка [ - 20, 50].
Любую задачу на массив можно разбить на подзадачи.
Так, в данной задаче две подзадачи : 1.
Формирование массива ; 2.
Вывод массива на экран.
Поэтому программа решения данной задачи будет содержать процедуры : Vvod и Vivod.
Заметим, что заполнение и вывод на экран массива можно осуществить только поэлементно, то есть можно сначала присвоить значение первому элементу, затем второму и так далее.
Поскольку известно количество повторений команды ввода или вывода элементов массива, то при составлении программ на массивы используется цикл с параметром :
Program massiv1 ; Uses Crt ;
Type Mas = Array [1.
10] of Real ;
Var a : Mas ;
Procedure Vvod(Var x : Mas) ;
Var i : Integer ;
Begin For i : = 1 To 10 Do x[i] : = 30 * Random + 20 ; {(B - A) * random + A} End ;
Procedure Vivod(Var x : Mas) ; Var i : Integer ;
Begin For i : = 1 To 10 do Write(x[i] : 8 : 2)
End ;
Begin
Vvod(a) ; Vivod(a) ; End.
Дополним программу, решив задачу : найти среднее арифметическое положительных элементов массива процедурой :
Procedure sr_arif(Var x : Mas ; Var c : Real) ;
Var i, k : Integer ;
Begin c : = 0 ; k : = 0 ; For i : = 1 To 10 Do
If x[i]>0 Then Begin c : = c + x[i] ; k : = k + 1 End ; c : = c / k End ;
В программу добавятся строки :
sr_arif(a, s) ; Writeln('Среднее ариф.
Положительных элементов = ', s : 8 : 2) ; Модифицируйте программу для решения следующих задач :
1)Найти сумму элементов, кратных заданному числу ;
2)Найти количество отрицательных элементов.
3)Найти произведение элементов, меньших десяти.
Помогите пожалуйста : ))))))))) это 10 - 11 класс.
Даю 25 баллов?
Даю 25 баллов!
Дан массив из 20 вещественных чисел.
Найти среднее арифметическое чисел элементов массива и заменить на него максимум и минимум элементов массива стоящие на местах кратных 5.
На этой странице находится вопрос Дан целочисленный массив из 40 элементов?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
/ / PascalABC.
NET / / Дан целочисленный массив из 40 элементов.
Элементы массива могут / / принимать значения от - 10000 до 10000.
Написать алгоритм, который / / находит и выводит среднее арифметическое всех отрицательных элементов / / массива, оканчивающихся цифрой 7.
Гарантируется, что хотя бы один / / такой элемент в массиве есть.
Исходные данные объявлены так, как / / показано ниже.
Запрещается использовать переменные, не описанные / / ниже, но разрешается не использовать часть из них.
Const N = 40 ;
var / / a : array[1.
N] of integer ; i, s, r, x : integer ; sr : real ;
begin / / Для любителей заполнять вручную : / / for i : = 1 to 40 do readln(a[i]) ; / / Заполним массив 40 - ка случайными значениями var a : = ArrRandomInteger(N + 1, - 10000, 10000) ; / / Гарантировано разместим число, оканчивающееся на 7 a[Random(0, 40)] : = - 10 * Random(0, 999) - 7 ; / / Уберем лишний элемент, созданный автоматически a[0] : = 0 ; / / Напечатаем массив a.
Println ; writeln(' - - - - - - - - - - - - - - - - ') ; / / Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7 / / число, учтём его foreach i in a do if (i < 0) and (i mod 10 = - 7) then begin r + = i ; s + = 1 ; write(i, ' ') end ; / / Выведем среднее арифметическое writeln('Ср.
Ар : ', r / s)
end.