В заданном массиве A(N) каждый третий элемент заменить на значение «-3»

@dementor66 · Регистрация: 05.03.2014

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

В заданном массиве A(N) каждый третий элемент заменить на значение «-3».

@Антон1985 · 05.03.2014, 20:47

Pascal

uses crt;
const
  N = 20;
var
  i: integer;
  A: array [1..N] of integer;
begin
  for i:=1 to N do begin
    A[i] := random(1000);
    write(A[i]:4);
  end;
  writeln; writeln;
  i := 0;
  while (i+3 <= N) do begin
    i := i + 3;
    A[i] := -3;
  end;
  for i:=1 to N do
    write(A[i]:4);
  readln;
end.

@Фаер · 12.03.2014, 16:22

Pascal

Uses crt;
Var A:array[1..100] of integer; i,n:integer;
Begin
ClrScr; Randomize;
Write('n='); Readln(n); {ввод кол-ва элементов массива}
For i:=1 to n do
 Begin
  A[i]:=random(51)-25; Write(A[i]:4); {генерация произвольных элементов массива}
  If i mod 3=0 then A[i]:=-3; {каждый третий заменяем на -3. mod - остаток от деления}
 End;
Writeln;
For i:=1 to n do Write(A[i]:4); {выводим результат}
Readln;
End.

@dementor66 0 / 0 / 0 Регистрация: 05.03.2014 Сообщений: 9
		1
	В заданном массиве A(N) каждый третий элемент заменить на значение «-3» 05.03.2014, 20:18. Показов 1264. Ответов 2 Метки нет (Все метки) В заданном массиве A(N) каждый третий элемент заменить на значение «-3». 0

Опции темы

В заданном массиве A(N) каждый третий элемент заменить на значение «-3»

Решение