Const n=8; var a:array[1..n,1..n] of integer; i,j,k,s,s1,si,dmin,smin:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:4); end; writeln; end; write('k = '); readln(k); s:=0; for j:=1 to n do s:=s+a[k,j]; writeln('s = ',s); dmin:=999999; smin:=999999; for i:=1 to n do if i<>k then begin s1:=0; for j:=1 to n do s1:=s1+a[i,j]; writeln('s',i,' = ',s1); if abs(s1-s)<dmin then begin dmin:=abs(s1-s); smin:=s1; si:=i; end; end; writeln('Номер строки = ',si,', smin = ',smin); end.
Var begin readln(n); if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end; if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end; if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end; if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end; if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end; if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end; if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end; if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end; И так до 12 раз... Я не уверен что тебе нужен такой монстр... В место к примеру 1 месяца пишешь январь...
using System;
namespace restless
{
class Visitor
{
private bool ticket;
private int age;
private int height;
public void InputInfo()
{
c:
Console.Write("Наличие билета: (Да/Нет): ");
string t = Console.ReadLine().ToLower();
if (t == "да")
ticket = true;
else if (t == "нет")
ticket = false;
else
{
Console.WriteLine("Вы ввели что-то не то...");
goto c;
}
Console.Write("Ваш возраст: ");
age = Convert.ToInt32(Console.ReadLine());
Console.Write("Ваш рост: ");
height = Convert.ToInt32(Console.ReadLine());
}
public bool CheckPeople()
{
if (ticket == true && age > 15 && height > 120)
return true;
return false;
}
}
class Program
{
static void Main(string[] args)
{
Visitor ch1 = new Visitor();
ch1.InputInfo();
if (ch1.CheckPeople())
Console.WriteLine("Вам можно пройти!");
else
Console.WriteLine("Увы, но пройти Вам нельзя!");
}
}
}