Статистика
Всего в нашей базе более 4 320 842 вопросов и 6 433 893 ответов!

помогите исправить ошибки.Масиви. Уплотнить линейный массив, удалив нули и сдвинув влево остальные элементы program

10-11 класс

{ Уплотнить линейный массив удалив нули и сдвинув влево остальные элм.}

uses crt

var m,i,k:longint a:array[1..100]of longint

begin

clrscr

write('введите кол-во элм таблицы: ')redln(k)

for i=1 to k do

begin

write('a[',i,']=')redln(a[i])

end

m=0

for i=1 to k do

if a[i]=0 then inc(m)

elsey a[i-m]=a[i]k=k-m

for i=1 to k do write(a[i],' ')redln

end.

Sonya3144s 10 окт. 2014 г., 21:04:13 (3 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Mekaandakulova
10 окт. 2014 г., 22:36:31 (3 года назад)

Помог - отметь как лучший ответ

program zadacha ;
{ Óïëîòíèòü ëèíåéíûé ìàññèâ óäàëèâ íóëè è ñäâèíóâ âëåâî îñòàëüíûå ýëì.}
uses crt ;
var m,i,k:longint; a:array[1..100]of longint ;
begin
clrscr ;
write('ââåäèòå êîë-âî ýëì òàáëèöû: ');readln(k) ;
for i:=1 to k do
begin
write('a[',i,']=');readln(a[i]);
end;
m:=0 ;
for i:=1 to k do
if a[i]=0 then inc(m)
else a[i-m]:=a[i];k:=k-m ;
for i:=1 to k do write(a[i],' ');readln;
end.

Ответить

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

Помогите написать программу на Паскале.

В целочисленной матрице размером 10x10 найдите максимальное значение и индексы всех элементов, равных ему.

Выберите

вариант, в котором объемы памяти расположены в порядке возрастания

что делать в жизни ?

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

Помогите исправить ошибки и написать блок-схему. Задание: Имеется массив А из N произвольных чисел, среди которых есть положительные,

отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.

Листинг программы:

Program Massiv;

Const n=10;

Var A:array [1..4] of integer;

I, c, c2, c3: integer;

Begin

For i=1 to N do begin

Readln (a[i]); If (a[i]=0 then inc(c)

Else if ([ai]<0) then inc(c2)

Else inc (c3);

End;

Writeln (`нулевые:`,c);

Writeln (`отрицательные:`,c2);

Writeln (`положительные:`,c3);

End.

Помогите исправить ошибки Задание: составить программу на яз. Паскаль с использованием цикла с неизвестным числом повторений для вычислений значения

функции F(x)=sin(x)+tg(x) на отрезке [А, В] при изменении аргумента в точках хi = А+iН, где Н – шаг. А=1, В=2, Н=0,125.

Листинг программы:

Program Tabulir;

Var x, y: real;

Begin x:=1;

While x≤2 do begin

y:=sin(x)+tg(x);

writeln (x:9:1, y:16:3);

x:=x+0,125;

End.

Есть текст программы. Вроде работает, но не выдает результат. Нужно исправить ошибку. Кидаю файл с программой. В паскале.

А вот само задание:
Дано: массивы А(8),
В(10). Сформировать массивы C
и D:
массив С должен состоять только из положительных элементов массива А и В, а
массив D
из отрицательных. Предусмотреть подсчет и печать количества отрицательных и
положительных элементов в каждом из массивов А и В. Подсчет и печать количества
отрицательных и положительных элементов массива оформить в виде подпрограммы.

Помогите исправить ошибки. Листинг программа: Program Posledow; Var x, y: real; Begin x:=8 Repet`

y:=SQR(x-8)/6;

Writeln (x:8:3, y:8:3);

x:=x+6;

Until y+5<0;

End.

Исправьте ошибки пожалуйста Pascal!Линейные алгоритмы.Пара кроликов каждый год дает приплод двух (самку и самца) которые через 2 месяца способны давать

новый приплод. Сколько кроликов будет через год

program uses crt{Пара кроликов каждый год дает приплод двух (самку и самца)кот.через 2месяца способны давать новый приплод.Ск-ко кроликов будет через год.}

var k : integer

function f(n:integer):integer

begin if n=0

then f=1

elsey if n=1

then f=2

elsey f=f(n-2)+f(n-1)

end

begin for k=10 to 12 do

writeln(f(k))

redln

end.



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