Информатика | 5 - 9 классы
Определите описание прямоугольной вещественной таблицы F с 8 строками и 11 столбцами.
А) var A : array [8.
11] jf real ;
б) var B : array [1.
8, 1.
11] of integer ;
в) var D : array [8.
11, 8.
11] of real ;
г) var M : array [0.
8, 0.
10] of integer ;
д) var F : array [0.
7, 0.
10] of real ;
е) var F : array [0.
7, 0.
10] of char.
Помогите изменить массив :Дан одномерный целочисленный массив mas?
Помогите изменить массив :
Дан одномерный целочисленный массив mas.
Поменять местами два элемента массива с номерами k1 и k2, если оба этих элемента чётны.
Иначе – запросить у пользователя индекс ещё одного элемента k 3 и поменять его местами с первым элементом массива.
Вывести на экран итоговый массив в строку.
Массив :
Program pr1 ;
Var i, N, k1, k2, R : integer ; mas : array[1.
100]of integer ;
Begin Writeln ('Введите число элементов массива (N.
Перепишите программу на Паскале, исправив ошибки :Program massiv ;Var a : array( - 10?
Перепишите программу на Паскале, исправив ошибки :
Program massiv ;
Var a : array( - 10.
10) of integer ;
Begin For i : = 1 to 20 Do Read(a[i]) ; For i : = 1 to 20 Do a[i] : = a[i] / 10 ;
For i : = 1 to 20 Do Write(a[i])
End.
Какие операторы не правильные?
Какие операторы не правильные?
(В паскале) Преобразуйте в правильную программу.
Program qq ; var a, b : integer ; x, y : real ; begin a : = 5 ; 10 : = x ; y : = 7, 8 ; b : = 2.
5 ; x : = 2 * (a + y) ; a : = b + x ; end.
СРОЧНО?
СРОЧНО!
Помогите исправить ошибки в программе
program n12 ; var x : y ; real :
begin write ; ('Введите x и y') ; readln(x и y) ; if x.
Program Dvch ;var N : integer ;beginwriteln('Введите число N') ;readln(N) ;If (N>9) and (N?
Program Dvch ;
var N : integer ;
begin
writeln('Введите число N') ;
readln(N) ;
If (N>9) and (N.
СрочноProgram sredarifment ;Var a : array[1?
Срочно
Program sredarifment ;
Var a : array[1.
10] of real ;
i, k : integer ;
C, S, sred : real ;
Begin
For i : = 1 to 10 do begin write ('a[', i, '] = ') ; readln (a[i]) ; end ;
write('введите C : ') ; readln (C) ;
For i : = 1 to 10 do begin If a[i]>C then begin S = S + a[i] ; K = K + 1 ; end ; end ;
sred = S / k ;
Writeln('среднее арифметическое чисел, превосходящих ', C, ' равно ', sred) ;
End.
Помогите чтобы программа запускалась.
Выходит что не верно.
Помогите с Паскалем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]) ;
Дан целочисленный массив из 40 элементов?
Дан целочисленный массив из 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. Определите описание прямоугольной вещественной таблицы F с 8 строками и 11 столбцами?
1. Определите описание прямоугольной вещественной таблицы F с 8 строками и 11 столбцами.
А)var A : array [8.
11] of real
b)var B : array [1.
8, 1.
11] of integer
c)var D : array [8.
11, 8.
11] of real
d)var M : array [0.
8, 0.
10] of integer
e)var F : array [0.
7, 0.
10] of real
f)var F : array [0.
7, 0.
10] of char.
2. Определите тип, размерность и количество элементов массивов из задания 1.
ПРОШУ ПОМОГИТЕ СРОЧНО НУЖНО.
ДАМ 30 БАЛОВ.
Задание 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 класс.
На этой странице сайта вы найдете ответы на вопрос Определите описание прямоугольной вещественной таблицы F с 8 строками и 11 столбцами?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 5 - 9 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Ответ : д
Ответ : д
Ответ : д.