VPF::Задачи на Паскале - Форум программистов

Гость_Студент

Дата 25.5.2005, 19:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите решить две маленькие задачи:
1. Удалить третий элемент массива b(n).
2. Найти сумму четных элементов массива, больших 5 целых чисел.
ПОЖАЛУЙСТА!!!!

SPrograMMer

Дата 25.5.2005, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: нет
Всего: 6

Цитата

Удалить третий элемент массива b(n).

массивв динамический что ли?

Цитата

2. Найти сумму четных элементов массива, больших 5 целых чисел.

Код


  S:=0;
  For I:=1 To n Do
     If (A[I]>5) And (A[I] Mod 2 = 0) Then
        S:=S+A[I];
  WriteLn('Сумма четных эл-тов массива больших 5 равана ',s)

Это ж как дважды два млин! smile

--------------------

животное = зверь
законченный гентушник

dvs

Дата 25.5.2005, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Владимир Драпалюк

Профиль
Группа: Участник Клуба
Сообщений: 660
Регистрация: 25.8.2003
Где: Воронеж->Москв а

Репутация: нет
Всего: 19

Цитата

1. Удалить третий элемент массива b(n).

Код


const 
  n = 10
type
  mas = array[1..n] of integer;
var
  a : mas;
   i, k : integer;
begin
  {Вводишь массив}
  For i := 1 to n do
    Read(a[i]);
  {Удаляем номер k = 3} 
   k := 3;
   For i := k to n-1 do
     a[i] := a[i+1];
   {Выводим остатки массива}
   For i := 1 to n-1 do //n-1, как ты догадался, из-за того, что на один стало меньше
     Write(a[i], '  ');
   Readln;//Ждем нажатия Enter-a
end.

--------------------

Любите друг друга!

Гость_Студент

Дата 26.5.2005, 12:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Большое СПАСИБО!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »