(30 БАЛЛОВ).Помогите написать Программку ПО ИНФОРМАТИКЕ. Задана последующая задача: УДАЛИТЬ

(30 БАЛЛОВ).Помогите написать ПРОГРАММУ ПО ИНФОРМАТИКЕ. Задана следующая задачка: УДАЛИТЬ 1-ый ЭЛЕМЕНТ КРАТНЫЙ ТРЕМ (В Паскале).
Я плохо понимаю информатику,потому по способности распишите программку полностью.

Задать свой вопрос
1 ответ
1-ый кратный элемент заменяется на 0
const     
n = 10; 
var   
a : array [1..n] of integer;  
 i,m : integer;  
    begin
  for i := 1 to n do 
   a[i] := i;              
 
 m := 0; 
  i := 1;
 while (m = 0)
 and (ilt;=n) do   
  begin  
    if a[i] mod 3 = 0 then 
      begin   
     a[i] := 0;   
     m := 1;  
     end ;  
    i := i +1; 
    end;   
 for i := 1 to n do  
  writeln (a[i]); 
  end. 
Степан Сорочинский
Огромное спасибо1
Махнырь Алеша
Есть особая кнопочка, чтоб выразить признательность
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт