На каком языке?
паскаль
а зачем здесь делить на 3?

Ответы и объяснения

  • Участник Знаний
2014-04-10T09:21:49+00:00
Var
  i: integer;
  a: array[1..10] of integer;
begin 
writeln('Исходный массив:'); 
for i := 1 to 10 do 
    begin   
    a[i] := random(30, 50);
    write(a[i]:3)
    end;
writeln; 
writeln('Преобразованный массив:');  
for i := 1 to 10 do
    begin
    if a[i] > 40 then a[i] := 1
       else
        if a[i] < 40 then a[i] := 0;
    write(a[i]:3)
    end
end.

Другой вариант:
var
  i: integer;
  a: array[1..10] of integer;
begin  
writeln('Исходный массив:');  
for i := 1 to 10 do  
    begin    
    a[i] := random(30, 50);
    write(a[i],' ')
    end;
writeln;  
writeln('Преобразованный массив:');  
for i := 1 to 10 do
    begin
    if a[i] > 40 then a[i] := 1
       else
        if a[i] < 40 then a[i] := 0;
    write(a[i],' ')
    end
end.
а зачем здесь делить на три?
Это не делить на 3, это означает отвести 3 места для печати числа. Сами числа двухзначные, тогда между ними промежуток получится, они все в одну кучу не смешаются. Это типа указывает число тетрадных клеточек для числа, если каждую цифру писать в отдельной клеточке.
зачем это? это обязательно?
Если этого не сделать все числа сольются в одну строку
Раз тебе так не нравится, сделал по-другому. Теперь пойдет?