Найти сумму элементов массива, кратных трем

@Jacky · Регистрация: 18.11.2012

Студворк — интернет-сервис помощи студентам

Собственно само задание: Задать случайным образом одномерный массив из 15 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных трем. Закрасить указанные элементы. И если сможете блок схему пожалуйста.

@pryda · 22.11.2012, 04:38

Pascal

var a:array[1..15]of integer;
    i,s:integer;
begin
randomize;
for i:=1 to 15 do
begin
    a[i]:=random(29)-14;
    write(a[i]:4);
end;
s:=0;
writeln(#13#10+'Результат');
for i:=1 to 15 do
begin
    if a[i]mod 3=0 then
    begin
        s:=s+a[i];
        a[i]:=0;
    end;
    write(a[i]:4);
end;
writeln(#13#10+'Сумма: ',s);
end.

@Jacky · 22.11.2012, 08:58 **[ТС]**

Сообщение от pryda

Pascal

var a:array[1..15]of integer;
    i,s:integer;
begin
randomize;
for i:=1 to 15 do
begin
    a[i]:=random(29)-14;
    write(a[i]:4);
end;
s:=0;
writeln(#13#10+'Результат');
for i:=1 to 15 do
begin
    if a[i]mod 3=0 then
    begin
        s:=s+a[i];
        a[i]:=0;
    end;
    write(a[i]:4);
end;
writeln(#13#10+'Сумма: ',s);
end.

Между #13#10 пишет неверное выражение.

@pryda · 22.11.2012, 15:58

значит удалите "#13#10+"

HighPredator · 23.11.2012, 12:34

Не нужно ничего удалять. Нужно просто перечислить через запятую.

Pascal

1	writeln(#13,#10,'Сумма: ',s);

@Jacky 2 / 2 / 1 Регистрация: 18.11.2012 Сообщений: 25
		1
	Найти сумму элементов массива, кратных трем 21.11.2012, 23:47. Показов 3930. Ответов 4 Метки нет (Все метки) Собственно само задание: Задать случайным образом одномерный массив из 15 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных трем. Закрасить указанные элементы. И если сможете блок схему пожалуйста. 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	22.11.2012, 15:58	4
	значит удалите "#13#10+" 1

Опции темы