Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.06.2018, 11:50   #1
dastreba
Пользователь
 
Регистрация: 29.11.2017
Сообщений: 63
По умолчанию Присвоить последнему элементу масива 0

Фастом пж можно,у меня экзамен прост.
Как тут присвоить 0?

Код:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..20] of integer;
    n,i,j,k:integer;
begin
repeat
write('Write rozmer masiva n= ');
readln(n);
until n in [2..20];
writeln('Write elements of mass: ');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Mass: ');
for i:=1 to n do
write(a[i],' ');
writeln;
repeat
write('Write element which we must dellete ',n,' k=');
readln(k);
until k in [1..n];
if k<n then
for j:=k to n-1 do
a[j]:=a[j+1];
n:=n-1;
writeln('Result:  ',k);
for i:=1 to n do
write(a[i],' ');
readln;
end.
dastreba вне форума
Старый 18.06.2018, 11:57   #2
dastreba
Пользователь
 
Регистрация: 29.11.2017
Сообщений: 63
По умолчанию

сделал
dastreba вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оброботка масива.найти елемент масива с указанием его адреса в строке и в столбце Rokko195 Паскаль, Turbo Pascal, PascalABC.NET 3 20.12.2012 07:22
Удаление слов равных последнему. С++ Timosha Помощь студентам 5 30.05.2012 06:31
Возврат к последнему исправлению caute Microsoft Office Word 29 03.09.2011 00:35
Обращение к первому и последнему элементу отсортированного массива СветланаRerum Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 17.05.2010 18:56
Присвоить элементу значение текстовой строки так, чтоб строка была в два и более ряда, а не в один alex2008ean Паскаль, Turbo Pascal, PascalABC.NET 1 15.12.2008 05:31