надо переделать задачу она уже решена ну ее нужно переделать

@Влад9н · Регистрация: 24.01.2013

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

вот задача

Pascal

const n=4;
var a:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
begin
write('Введите ',i,'-й элемент массива');readln(a[i]);
end;
writeln('Ответ: ');
s:=0;
 for i:=1 to n do
 begin
 if a[i] mod 3 = 0 then s:=s+a[i];
end;
write(s);
end.

но ее нужно переделать так что бы небыло for to и do
а было if then and else и тд

@GggDrej · 24.01.2013, 20:26

без цикла только так:

Pascal

const n=4;
var a:array[1..n] of integer;
s:integer;
begin
for i:=1 to n do
begin
write('Введите ',i,'-й элемент массива');readln(a[i]);
end;
writeln('Ответ: ');
s:=0;
if a[1] mod 3=0 then s:=s+a[1];
if a[2] mod 3=0 then s:=s+a[2];
if a[3] mod 3=0 then s:=s+a[3];
if a[4] mod 3=0 then s:=s+a[4];
write(s);
end.

@Влад9н · 24.01.2013, 20:33 **[ТС]**

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

без цикла только так:

Pascal

const n=4;
var a:array[1..n] of integer;
s:integer;
begin
for i:=1 to n do
begin
write('Введите ',i,'-й элемент массива');readln(a[i]);
end;
writeln('Ответ: ');
s:=0;
if a[1] mod 3=0 then s:=s+a[1];
if a[2] mod 3=0 then s:=s+a[2];
if a[3] mod 3=0 then s:=s+a[3];
if a[4] mod 3=0 then s:=s+a[4];
write(s);
end.

без for можно ???

@GggDrej · 24.01.2013, 20:36

абсурд

Pascal

const n=4;
var a:array[1..n] of integer;
s:integer;
begin
writeln('Введите 1-й элемент массива: '); readln(a[1]);
writeln('Введите 2-й элемент массива: '); readln(a[2]);
writeln('Введите 3-й элемент массива: '); readln(a[3]);
writeln('Введите 4-й элемент массива: '); readln(a[4]);
writeln('Ответ: ');
s:=0;
if a[1] mod 3=0 then s:=s+a[1];
if a[2] mod 3=0 then s:=s+a[2];
if a[3] mod 3=0 then s:=s+a[3];
if a[4] mod 3=0 then s:=s+a[4];
write(s);
end.

Опции темы