Помогите с массивами в Pascal

Татьянка · 08.12.2011, 14:33

Дан целочисленный вектор В.Записать вместо его максимального элемента сумму элементов,кратных 3.
Заранее спасибо)

Vladimir_S · 08.12.2011, 16:53

Цитата:

Сообщение от Татьянка

Дан целочисленный вектор В.Записать вместо его максимального элемента сумму элементов,кратных 3.
Заранее спасибо)

Ну что, право, за детский сад... Фу!

Код:

CONST
 N=16;
VAR
 B:Array[1..N] of Word;
 i,Max,Imax:Byte;
 Sum:Word;
BEGIN
 Sum:=0;
 Randomize;
 For i:=1 to N do B[i]:=Random(100);
 For i:=1 to N do Write(B[i]:8);
 Writeln;
 Writeln;
 Imax:=1;
 Max:=B[1];
 For i:=1 to N do
  begin
   If B[i]>Max then
    begin
     Imax:=i;
     Max:=B[i];
    end;
   If (B[i] mod 3)=0 then Sum:=Sum+B[i];
  end;
 B[Imax]:=Sum;
 For i:=1 to N do Write(B[i]:8);
 Readln;
END.

08.12.2011, 14:33	#1 (permalink)
Татьянка Новичок Регистрация: 08.12.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с массивами в Pascal Дан целочисленный вектор В.Записать вместо его максимального элемента сумму элементов,кратных 3. Заранее спасибо)

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

08.12.2011, 14:33
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	С уверенностью могу сказать, что в этих темах есть множество полезной информации Помогите, две задачки по Pascal Помогите пожалуйста с массивами на языке Си Помогите с двумерными массивами. C++

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070