Информатика | 10 - 11 классы
Погите пожалуйста.
Нужно написать задачи на языке Паскаль.
1. С клавиатуры заполнить целочисленный одномерный массив.
Вывести неотрицательные элементы массива.
2. дан одномерный массив целых чисел.
Определить каких элементов больше, максимальных и минимальных 3.
Дан одномерный массив целых чисел.
Подсчитать количество элементов, равных заданному массиву x.
Число х вводится с клавиатуры.
Дан целочисленный одномерный массив из n - элементов?
Дан целочисленный одномерный массив из n - элементов.
Вывести на экран четные элементы стоящие на нечетных массивов через паскаль.
Напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от 1 до 6?
Напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от 1 до 6.
Заполнить данный массив с клавиатуры, найти и вывести наименьшую нечетную сумму двух соседних элементов массива.
Помогите решить задачи на паскаль?
Помогите решить задачи на паскаль.
1) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти произведение всех элементов массива.
2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти сумму четных элементов массива.
3) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти максимальный элемент массива.
4) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти максимальный элемент массива среди элементов, кратных 3.
Дан одномерный массив с индексами от 0 до 14, найти индекс минимального и максимального элементов массива(числа вводятся с клавиатуры)?
Дан одномерный массив с индексами от 0 до 14, найти индекс минимального и максимального элементов массива
(числа вводятся с клавиатуры).
Дан одномерный массив чисел?
Дан одномерный массив чисел.
Определить среднее арифметическое элементов массива.
Дан одномерный массив из 12 чисел?
Дан одномерный массив из 12 чисел.
Элементами массива являются целые числа.
Найти максимальный элемент указанного массива.
Помогите написать в Паскалье, дан одномерный массив А из n элементов?
Помогите написать в Паскалье, дан одномерный массив А из n элементов.
Вводится число b.
Определить количество совпадений b с элементами массива.
Создать одномерный массив, содержащий целые числа?
Создать одномерный массив, содержащий целые числа.
Элементы массива вводятся с клавиатуры.
Найти номера всех элементов больше 5 (вывести их на экран), если таких нет, то сообщить об этом.
Написать программу, которая вводит с клавиатуры одномерный массив из пяти целых чисел и выводит количество ненулевых элементов?
Написать программу, которая вводит с клавиатуры одномерный массив из пяти целых чисел и выводит количество ненулевых элементов.
PascalABC1)Дан массив целых чисел, состоящий из 8 элементов?
PascalABC
1)Дан массив целых чисел, состоящий из 8 элементов.
Заполнить его с клавиатуры.
Найти сумму элементов, имеющий нечётный индекс.
2)Сформировать одномерные массив из N элементов, где элементы массива - целые случайные числа.
Вывести индексы тех элементов, значение которых больше заданного числа A (A вводить с клавиатуры).
3)Определите, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
На этой странице вы найдете ответ на вопрос Погите пожалуйста?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 10 - 11 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
1)
var
a : array [1.
5] of integer ;
i, k : integer ;
Begin
Writeln('Перечислите элементы массива : ') ; For i : = 1 to 5 do
read(a[i]) ;
For i : = 1 to 5 do
If (a[i] > ; - 1) then write(a[i] : 2) ;
End.
2)
var
a : array [1.
5] of integer ;
i, k1, k2, max, min : integer ;
Begin
min : = MaxInt ;
max : = - MaxInt ;
Writeln('Перечислите элементы массива : ') ;
For i : = 1 to 5 do
begin
read(a[i]) ;
if (a[i] > ; max) then max : = a[i] ;
if (a[i] < ; min) then min : = a[i] ;
end ;
For i : = 1 to 5 do
begin
If (a[i] = max) then inc(k1) ;
If (a[i] = min) then inc(k2) ;
end ;
If (k1> ; k2) then writeln('Больше max элементов')
else writeln('Больше min элементов') ;
End.
3)
var
a : array [1.
5] of integer ;
i, k, x : integer ;
Begin
Write ('X = ') ;
read(x) ;
Writeln('Перечислите элементы массива : ') ;
For i : = 1 to 5 do begin read(a[i]) ;
if (a[i] = x ) then inc(k) ;
end ;
writeln('kol = ', k) ;
end.