Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

.Дан массив состоящ из 15 целых чисел,заполненых случ.образом в промежутке от -10 до 10.Найти максимальное значение и заменить на 0 значения всех

10-11 класс

элементов ,которые находятся перед максимальным

Prekpacna 08 февр. 2017 г., 5:45:35 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
СашаЧертков
08 февр. 2017 г., 8:12:59 (7 лет назад)

program new;
var a:array[1..15] of integer;max,m,i:integer;
begin 
randomize;
for i=1 to 15 do
a[i]:=random(21)-10
end;
max:=-10;
for i =1 to 15 do
if a[i] > max then
begin
m:=i;
max:=a[i]
end;
for i=1 to m-1 do
a[i]:=0;
end;
end. 
 

Ответить

Другие вопросы из категории

Помогите пожалуйста с паскалем!

В компьюьтер с клавиатуры вводятся 11 целых чисел. Посчитать произведение чисел, кратных 5 и оканчивающихся цифрой 0.

1.Составить блок-схему,которая определяет сумму двузначных четных чисел

2.Составить программу вычисления уравнения : y= \frac{1}{z} + \frac{5}{z-6}
предусматрев вариант,при каких Z, уравнение не имеет решения

1 Скрин . Задание со хемами

2. Скрин . задание №6 ( печать отвратительная , в 1 пункте над В 2 штриха - длинный и кототкий , и в пункте 3 такие же штрихи над А
3. Скрин 3 . Задание №1 ... как ? как правильно преобразовывать величины информации??

( а лучше обьясните как это решать? в школе по информатике только писали про мышки , клавы и т.д , сейчас вступительные и приходится все самостоятельно осваивать ... в принципе уже все освоил , но проблемы с данным заданиями)

заранее благодарен

срочно!!!

Составить алгоритм решения задачи для определения меньшего из двух вещественных чисел.

Читайте также

Дан массив, состоящий из 100 целых чисел:

а) Вывести все числа, которые встречаются в этом массиве по нескольку раз;
б) Вывести все числа, которые встречаются в массиве только по одному разу.

запишите заголовки цикла for для изменения параметра из диапазонов от -10 до +10______________________ от 100 до 1

_______________________

от 15 до 25 ________________________

от -10 до -20 ___________________________

Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых

чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.

на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел

среди 10 элементов вещественного массива

3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.

4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов



Вы находитесь на странице вопроса ".Дан массив состоящ из 15 целых чисел,заполненых случ.образом в промежутке от -10 до 10.Найти максимальное значение и заменить на 0 значения всех", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.