Двумерный массив. Все четные элементы массива заменить нулями

@Apel'sin32rus · Регистрация: 02.04.2012

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

Все четные элементы массива заменить нулями. Заполнение массива произвести случайными целыми числами.
P.S.
Пожалуйста напишите программу полностью.

@ermolay · 15.06.2012, 06:11

Pascal

program massiv;
uses
  crt;
var
  a: array[1..20,1..20] of integer;
  n,m,i,j: integer;
begin
  clrscr;
  write('Введите размеры массива n,m: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if a[i,j] mod 2=0 then a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

@Apel'sin32rus 1 / 1 / 1 Регистрация: 02.04.2012 Сообщений: 13
		1
	Двумерный массив. Все четные элементы массива заменить нулями 15.06.2012, 00:20. Показов 6289. Ответов 1 Метки нет (Все метки) Все четные элементы массива заменить нулями. Заполнение массива произвести случайными целыми числами. P.S. Пожалуйста напишите программу полностью. 0

Опции темы

Двумерный массив. Все четные элементы массива заменить нулями

Решение