2. выберите правильную последовательность: общее имя обьекта-единичное имя обьекта-собственное имя обьекта 1)ученик-рыжий мальчик-вася 2) вася-ученик-рыжий мальчик 3) ученик-вася-рыжий мальчик 4) рыжий мальчика ученик йа вся
Const N = 3; M = 4; Var A:array[1..N,1..M] of integer; i,j,Min,Ns:integer; Begin {Заполнение массива} WriteLn('Исходный массив: '); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); End; WriteLn End; {Поиск минимального элемента} Min:=A[1,1]; For i:= 1 to N do For j:= 1 to M do if A[i,j]<Min then Begin Min:=A[i,j]; Ns:=i; End; WriteLn('Минимальный элемент в строке №',Ns); End.
Var n,d:integer; begin write('Введите месяц :'); readln(n); write('Введите день :'); readln(d); n:=n mod 12;
case n mod 12 of 1: if d<=20 then writeln('Козерок') else writeln('Водолей'); 2: if d<=21 then writeln('Водолей') else writeln('рыба'); 3: if d<=21 then writeln('рыба') else writeln('овен'); 4: if d<=21 then writeln('овен') else writeln('телец'); 5: if d<=21 then writeln('телец') else writeln('близницы'); 6: if d<=22 then writeln('близницы') else writeln('рак'); 7: if d<=23 then writeln('рак') else writeln('лев'); 8: if d<=24 then writeln('лев') else writeln('дева'); 9: if d<=24 then writeln('дева') else writeln('весы'); 10: if d<=24 then writeln('весы') else writeln('скорпион'); 11: if d<=23 then writeln('скорпион') else writeln('стрелец'); 12: if d<=22 then writeln('стрелец') else writeln('козерок'); end; end.
//без if вряд ли удаться обойтись(+ я не учитывал високосный год и кратный 100 и 400)
ученик-рыжий мальчик-Вася