Вопрос по информатике:
Решить задачу Pascal
В массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.
- 06.01.2016 19:42
- Информатика
- remove_red_eye 4499
- thumb_up 44
Ответы и объяснения 2
Var
A:array[1..15]of integer;
i:integer;
Begin
Write('До: ');
For i:= 1 to 15 do
Begin
A[i]:=random(15)+1;
Write(A[i],' ');
if A[i] mod 3 = 0 then A[i]:=0
End;
WriteLn;
Write('После: ');
For i:= 1 to 15 do
Write(A[i],' ')
End.
- 07.01.2016 17:30
- thumb_up 30
Program al;
const n=15;
var a:array[1..n] of integer;
i:integer;
procedure zam;
begin
for i := 1 to n do
if a[i] mod 3=0
then
a[i]:=0;
end;
begin
writeln('vvedite massiv=');
for i:=1 to n do
readln(a[i]);
zam;
writeln('noviy massiv=');
for i := 1 to n do
write (a[i]:4);
readln;
end.
- 08.01.2016 21:13
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.