сервис вопросов и ответовУдалить из массива все нулевые элементы.(массивы)
10-11 класс|
|
564564лиза4567
17 марта 2017 г., 9:07:08 (7 лет назад)
XxxXxxX2
17 марта 2017 г., 11:33:39 (7 лет назад)
Program Sherilusha;
uses crt;
const n = 20;
var
a:array [1..n] of integer;
sdvig,i,k:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3,' ');
end;
writeln();
sdvig:=0;
for i:=1 to n do
if a[i]=0 then
sdvig:=sdvig+1
else
begin
a[i-sdvig]:=a[i];
end;
k:=n-sdvig;
for i:=1 to k do
write(a[i]:3,' ');
end.
Ответить
Другие вопросы из категории
помоги пожалуйста задача на паскале. сколько думаю никак не доходит. Даны целые числа X, Y,
X1,Y1, X2,Y2. Проверить истинность высказывания: точка X,Y – лежит на прямой, проходящей через точки (X1,Y1)..(X2,Y2).
Вариант 6 1. Вычислить и вывести на экран первые десять членов последовательности, заданной формулами n-го члена: xn = n²+5. 2. Известны
фамилия, стоимость работы, время выполнения работы. Если работа выполнена раньше, чем за 15 дней, исполнитель поощряется денежной суммой в размере 10% от стоимости работы. Если работа выполнена с опозданием, то исполнителю начисляется пеня размером в 0,5% от стоимости работ за каждый день просрочки. Рассчитать итоговые суммы выплат исполнителям работ на момент их завершения. помогите плиз найти решеня
Сделайте обработку массива для i от 6 до 10. For i:= 0 to 10 do A [Сделайте обработку массива для i от 6 до 10.
For i:= 0 to 10 do
A [ i] := i ;
for i := 0 to 10 do
begin
k := A [i];
A [i] : = A[10-i];
k := A[10-i];end;
У меня получилось 10 9 8 7 6 5 4 3 2 1 0 (но после 5 не правильно) решите с объяснением!
Читайте также
составить постановку, алгоритм и в pascale программу, подсчитывающую сумму положительных элементов массива Z из 11 чисел.Значение элементов массива
рассчитать по формуле tgG, где G номер элемента массива
Задача 1 Составить программу При поступлении в вуз абитуриенты , получившие "двойку" на первом экзамене , ко второму не допускаются . В
массиве A[n] записаны оценки экзаменующихся , полученные на первом экзамене . Подсчитать , сколько человек не допущено ко второму экзамену .
Задача 2
В одномерном массиве , состоящем из n вещественных элементов , вычислить ;
1) минимальный элемент массива;
2)сумму элементов массива , расположенных между первым и последним положительными элементами .
Преобразовать массив таким образом , чтобы сначала располагать все элементы , равные нулю, а потом-все остальные .
1)Вывести в обратном порядке второе слово строки. Подсчитать количество букв в нем.
2) Составить программу для вычисления Т=(R/Q+1)+S. R - наименьший элемент массива;
Q - произведение элементов массива с нечетными номерами;
S - количество элементов, лежащих в интервале (A,B) (ввести с клавиатуры).
3) Вычислить среднее арифметическое положительных элементов матрицы, расположенных ниже
побочной диагонали. Закрасить указанные элементы.
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые числа от о до 10000 включительно. Опишите на естественном языке или на
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
Вы находитесь на странице вопроса "Удалить из массива все нулевые элементы.(массивы)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.