1.одномерные массивы
5-9 класс
|
Напишите программу на Паскале.ВЫвести на экран номера всех элементов массива B[1..n],не совподающих с максимальным
помогите
uses crt;
var max,n,i:integer;
b:array[1..100] of integer;
begin
writeln('Введите N и элементы массива:');
read(n);
read(b[1]);
max:=b[1];
for i:=2 to n do
begin
read(b[i]);
if b[i]>max then
max:=b[i];
end;
for i:=1 to n do
if b[i]<>max then
write(b[i],' ');
end.
Другие вопросы из категории
Читайте также
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.
отрицательные элементы начального массива.
с применение подпрограмм и процедур желательно
Тема: работа с одномерными массивами.