Четыре рядом стоящих дома расположены по одной стороне улице в них живут маша света ира и валя.из каждого дома сбежало по кошке .кошки были черная,серая ,белая и трехцветная . нашедших всех четыре животных точно знает, что:
1)валя соседка маши
2)ира живет левее вали и маши
3) света живет правее и вали и маши
4)света не соседка вали
5) у иры кошка не черная и не серая
6)белая кошка не живет в крайнем доме
7)маша -хозяйка черной кошки
человеку установить имена хозяек животных .
в ответе расположите первые буквы имен хозяек в следущем порядке: хозяйка черной кошки, хозяйка трехцветной кошки ,хозяйка серой кошки ,хозяйка белой кошки .например ,если бы хозяек (в соответствующем порядке) звали ирина ,анна,зинаида и вера ответ был бы : иазв
program p1;
uses crt;
const N = 30;
var a:array[1..N] of integer;
i,b,k:integer;
begin
for i:=1 to N do begin Вывод рандомных элементов
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
readln(b);
for i:=1 to N do begin
if b<>a[i] then begin ( если b не равно эл массива то
k:=k+1; (счётчик)
write(a[i]:4); (вывод))
end;
end;
writeln;
writeln(k);
end.
var a: array [1..5, 1..7] of integer;
i,j,max,min: integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
A[i,j]:=random(100);
max:=-1;
min:=101;
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]>max then max:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]<min then min:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do begin
if A[i,j]=max then A[i,j]:=min
else if A[i,j]=min then A[i,j]:=max;
end;
writeln();
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
end.