Информатика | 5 - 9 классы
1) Удвоить все элементы массива.
2)Найти сумму элементов двух массивов одинаковой размерности.
4) Найти Минимальные элементы массива и его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива 7) Определить количество максимальных элементов массива P.
S Ребят, все в паскале.
Заранее спасибо = *.
Дан массив с 50 элементами?
Дан массив с 50 элементами.
Найти максимальный элемент массива.
Используйте для ввода элементов массива функцию Random(x).
Дан массив состоящий из 30 элементов?
Дан массив состоящий из 30 элементов.
Найти в массиве максимальный элемент, вывести его значение и номер на экран.
Отрицательный элемент массива заменить на равные по модулю положительные элементы.
Помогите ?
Помогите .
Найти максимальный элемент одномерного массива из 30 элементов.
Найти максимальный элемент одномерного массива среди элементов с четными номерами?
Найти максимальный элемент одномерного массива среди элементов с четными номерами.
(начертить схему).
Помогите решить задачи на паскаль?
Помогите решить задачи на паскаль.
1) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти произведение всех элементов массива.
2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти сумму четных элементов массива.
3) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти максимальный элемент массива.
4) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Найти максимальный элемент массива среди элементов, кратных 3.
Найти минимальный элемент массива и его индекса (в паскале)?
Найти минимальный элемент массива и его индекса (в паскале).
Найти максимальный элемент одномерного массива, содержащего А) 10 элементов ; Б) n элементов (число элементов массива вводится с клавиатуры) (в Qbasic)?
Найти максимальный элемент одномерного массива, содержащего А) 10 элементов ; Б) n элементов (число элементов массива вводится с клавиатуры) (в Qbasic).
Заданы массивы a[1?
Заданы массивы a[1.
N] и b[1.
M] найти максимальный элемент массива a и проверить, есть ли такой элемент среди элементов массива b.
Если есть, указать его номер, иначе выдать "нет равных элементов" паскаль плиз)))).
Найти минимальный и максимальный элементы массивы(программку написать)?
Найти минимальный и максимальный элементы массивы(программку написать).
Найти номера минимального и максимального элементов массива, в Паскале?
Найти номера минимального и максимального элементов массива, в Паскале.
На этой странице находится вопрос 1) Удвоить все элементы массива?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 5 - 9 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Var
a : array[1.
10, 1.
10] of integer ;
b : array[1.
10, 1.
10] of integer ;
sum : array[1.
10, 1.
10] of integer ;
pol, otr, max, min : real ;
i, j, indexi, indexj : integer ;
begin
min : = 0 ;
max : = 0 ;
randomize ;
for j : = 1 to 10 do
begin
for i : = 1 to 10 do
begin
randomize ;
a[i, j] : = random(51) ;
randomize ;
b[i, j] : = random(51) ;
a[i, j] : = a[i, j] * 2 ;
writeln(a[i, j]) ;
a[i, j] : = a[i, j] / 2 ;
end ;
end ;
for j : = 1 to 10 do
begin
for i : = 1 to 10 do
begin
a[i, j] : = a[i, j] + b[i, j] ;
writeln(a[i, j]) ;
a[i, j] : = a[i, j] - b[i, j] ;
end ;
end ;
for j : = 1 to 10 do
begin
for i : = 1 to 10 do
begin
if a[i, j]< ; min then
begin
min : = a[i, j] ;
indexi : = i ;
indexj : = j ;
end ;
end ;
end ;
writeln(min, indexi, indexj) ;
for j : = 1 to 10 do
begin
for i : = 1 to 10 do
begin
if (a[i, j]> ; 0) and (a[i, j]> ; max) then
max : = a[i, j] ;
end ;
end ;
writeln(max) ;
max : = 0 ;
for j : = 1 to 10 do
begin
for i : = 1 to 10 do
begin
if (a[i, j]< ; 0) and (a[i, j]> ; max) then max : = a[i, j] ;
end ;
end ;
writeln(max) ;
end.
Программа выполняет сразу все 7 пунктов.
Значения задаются сами.
На выходе с каждой строки Вы получите каждый пункт задания.