Информатика | 5 - 9 классы
Помогите с Паскалем
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]) ;
ПаскальДана матрица (двумерный массив) размером 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.
Помогите найти ошибку (Информатика, Паскаль)?
Помогите найти ошибку (Информатика, Паскаль).
Var s, k, a : integer ;
Begin
s : = 0 ;
k : = 0 ;
Read(a) ;
while a0 do
Begin
if a mod 8 = 0 then
Begin
s : = s + a ;
k : = k + 1 ;
end ;
Readln(a) ;
end ;
var y : real ;
begin
y : = s / k ;
Read(s) ;
if s>0 then
Writeln(y)
else
Writeln('NO')
end ;
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.
Перевод кода паскаль в c + +2)var i, sum : integer ;n : real ;beginsum : = 0 ;for i : = 1 to 15 dobeginreadln(n) ;if n = trunc(n) then sum : = sum + 1 ;end ;writeln(sum) ;end?
Перевод кода паскаль в c + +
2)var i, sum : integer ;
n : real ;
begin
sum : = 0 ;
for i : = 1 to 15 do
begin
readln(n) ;
if n = trunc(n) then sum : = sum + 1 ;
end ;
writeln(sum) ;
end.
2
Var
a1, b2, c, d : integer ;
begin
write('Введите числа через пробел : ') ;
read(a1) ;
for d : = 2 to 10 do begin
read(b2) ;
if b2>a1 then inc(c) ;
a1 : = b2 ;
end ;
if c = 9 then writeln('Да') else writeln('Нет') ;
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.
Помогите чтобы программа запускалась.
Выходит что не верно.
Дан целочисленный массив из 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. Определите описание прямоугольной вещественной таблицы 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 БАЛОВ.
Нужно составить описание к программе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.
Вы открыли страницу вопроса Помогите с Паскалемconst N = 40 ;vara : array[1?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 5 - 9 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.
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])
s : = 0 ; st : = 0 ;
for i : = 1 to N do
if (a[i]>9)and(a[i]0 then writeln('Среднеарифметическое = ', st / s : 4 : 1)
else writeln('Искомых чисел нет') ;
end.
Пример (для n = 20) :
416
295 - 848 - 881 - 325 - 690
139 - 220
992
607 - 998
400
720 - 536
757 - 123 - 559 - 941
22 - 748
Среднеарифметическое = 22.