Информатика | 5 - 9 классы
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 БАЛОВ.
Помогите изменить массив :Дан одномерный целочисленный массив 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.
Перепишите программу на Паскале, исправив ошибки :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.
Задания 10 по огэ по информатике 2017 Var k, m : integer ; Dat : array[1…10] of integer ; Begin Dat[1] : = - 7 ; Dat[2] : = - 8 ; Dat[3] : = 3 ; Dat[4] : = 6 ; Dat[5] : = - 4 ; Dat[6] : = 3 ; Dat[7] ?
Задания 10 по огэ по информатике 2017 Var k, m : integer ; Dat : array[1…10] of integer ; Begin Dat[1] : = - 7 ; Dat[2] : = - 8 ; Dat[3] : = 3 ; Dat[4] : = 6 ; Dat[5] : = - 4 ; Dat[6] : = 3 ; Dat[7] : = 5 ; Dat[8] : = 5 ; Dat[9] : = 7 ; Dat[10] : = 1 ; num : = 1 ; m : = Dat (1) ; for k : = 2 to 10 do if Dat [ k] * m< 0 then begin m : = Dat[k] num : = k end ; writeln(m) ; End.
Срочно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. .
Определите описание прямоугольной вещественной таблицы F с 8 строками и 11 столбцами?
Определите описание прямоугольной вещественной таблицы 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.
Задание 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 класс.
Нужно составить описание к программеprogram pr1 ;const n = 5 ;var a : array[1?
Нужно составить описание к программе
program pr1 ;
const n = 5 ;
var a : array[1.
N] of integer ;
i, s1, s2 : integer ;
begin
randomize ;
s1 : = 0 ;
s2 : = 0 ;
for i : = 1 to n do begin
a[i] : = random(20) - 8 ;
writeln(a[i] : 4, ' Порядковый номер ', i) ;
end ;
writeln ;
for i : = 1 to n do begin
if i mod 20 then s1 : = s1 + sqr(a[i]) * a[i] ;
if i mod 2 = 0 then s2 : = s2 + sqr(a[i]) ;
end ;
writeln('Сумма 1 = ', s1) ;
writeln('Сумма 2 = ', s2) ;
end.
Вы находитесь на странице вопроса 1. Определите описание прямоугольной вещественной таблицы F с 8 строками и 11 столбцами? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
1)
e)var F : array [0.
7, 0.
10] of real
2)
тип элементов : real ;
размерность : 8 * 11
количество элементов : 8 * 11 = 88.