Bella
?>

Решите : квадрат, круг, ромб и треугольник вырезаны из белой, синей, красной и зелёной бумаги. известно, что круг не белый и не зелёный; синяя фигура лежит между ромбом и красной фигурой; треугольник не синий и не зелёный; квадрат лежит между треугольником и белой фигурой. какого цвета вырезан: 1) квадрат 2) круг 3) ромб 4) треугольник

Информатика

Ответы

bd201188
Решение с таблицы приведено во вложении.
Числами обозначены клетки, состояние которых определено в высказывании под соответствующим числу номером. Красный фон - отрицательный результат, зеленый - положительный.
Полезно нарисовать пустую таблицу и заполнять её, ставя знак "минус" (или записывая "нет") вместо красного фона и знак "плюс" ("да") вместо зеленого.

Решите : квадрат, круг, ромб и треугольник вырезаны из белой, синей, красной и зелёной бумаги. извес
mdclcompany
Const n=10;
var 
  a,b:array [1..n] of integer;
  i,min1,min2,k:integer;
begin
  randomize;
  For i:=1 to n do begin
    a[i]:=random(10);    
    b[i]:=random(10);
  end;
  writeln (a);
  writeln (b);
  writeln;
  min1:=1000;
  min2:=1000;
  For i:=1 to n do begin
    if a[i]<min1 then min1:=a[i];
    if b[i]<min2 then begin min2:=b[i]; k:=i end;
  end;
  if k<n 
    then begin 
      b[k+1]:=min1; 
      writeln (a);
      writeln (b);
    end
    else writeln ('Минимальным является последний элемент');  
end.

Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]

Минимальным является последний элемент

2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]

[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]


PS: Менять N можно в описании константы
appbiznessm
Const n=10;
type ar=array[1..n] of integer;
procedure p1(var x:ar);
var i:integer;
begin
for i:=1 to n do x[i]:=random(51); 
end;

procedure p2(h:char;var x:ar);
var i:integer;
begin
writeln('---',h,'---');
for i:=1 to n do write(x[i]:4);
writeln; 
end;

procedure p3(var x:ar; var min,imin:integer);
var i:integer;
begin
min:=x[1]; imin:=1;
for i:=2 to n do
 if x[i]<min then begin min:=x[i]; imin:=i; end;
end;

var a,b : ar; 
  m1,m2,im1,im2: integer;
begin
Randomize; 
p1(a); p2('a',a);
p3(a,m1,im1);
writeln('m1=',m1,' im1=',im1);
p1(b); p2('b',b);
p3(b,m2,im2);
writeln('m2=',m2,' im2=',im2);
if im2<n 
 then begin b[im2+1]:=m1; p2('b',b); end
 else writeln('Минимальный элемент последний');
end.

Пример:
---a---
  13  11   4  48  36  25   9  47  40   8
m1=4 im1=3
---b---
  45  13  48  18  41  17   5  43   9  21
m2=5 im2=7
---b---
  45  13  48  18  41  17   5   4   9  21

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решите : квадрат, круг, ромб и треугольник вырезаны из белой, синей, красной и зелёной бумаги. известно, что круг не белый и не зелёный; синяя фигура лежит между ромбом и красной фигурой; треугольник не синий и не зелёный; квадрат лежит между треугольником и белой фигурой. какого цвета вырезан: 1) квадрат 2) круг 3) ромб 4) треугольник
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

marychev55
Olegmgu11986
elenaftdv7
pifpaf85
minasov19
mail66
yuliyastatsenko3894
korolev-comitet8825
djikia88
FATEEV
julichca68
Анна егорович526
serov555zaq5
ksvish2012
sales