В массиве из 14 элементов каждый второй элемент массива сделать равным нулю

@1zer0 · Регистрация: 04.05.2017

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

1. В массиве из 14 элементов каждый второй элемент массива сделать равным нулю.
2. Заменить максимальный элемент на противоположный по знаку.

@VladimirD · 04.05.2017, 05:38

1zer0, задачка 2

Pascal

program prog;
const n=14;
  var a:array [1..n] of integer;
      i,max:integer;
begin
  randomize;
  for i:=1 to n do 
    begin 
      a[i]:=random(20)-10;
      write(a[i]:4);
    end;
  writeln;
  
  max:=1;  
  for i:=2 to n do
    if a[i]>a[max] then max:=i;
    
  a[max]:=-a[max];
    
  for i:=1 to n do write(a[i]:4);   
end.

@ZX Spectrum-128 · 04.05.2017, 07:18

1zer0, в дальнейшем, пожалуйста, соблюдайте правило: Одна задача - одна тема.

1.

Pascal

const
  n = 14;
 
var
  i: integer;
  a: array [1..n] of integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := Random(n) + 1;
    write(a[i]:4);
  end;
  writeln;
  for i := 1 to n do
  begin
    if not odd(i) then
      a[i] := 0;
    write(a[i]:4);
  end;
  
end.

@1zer0 0 / 0 / 0 Регистрация: 04.05.2017 Сообщений: 11
		1
	В массиве из 14 элементов каждый второй элемент массива сделать равным нулю 04.05.2017, 05:18. Показов 1670. Ответов 2 Метки нет (Все метки) 1. В массиве из 14 элементов каждый второй элемент массива сделать равным нулю. 2. Заменить максимальный элемент на противоположный по знаку. 0

	04.05.2017, 07:18

Опции темы

В массиве из 14 элементов каждый второй элемент массива сделать равным нулю

Решение