Два автомобиля едут навстречу друг друу с постоянными скоростями В1 и В2 км/час . Определить , через какое время автомобили встретятся, если расстояние между ними было S км.
1. var n,i: integer; B1: array [1..30] of real; begin writeln('Введите N: '); read(n); writeln('Введите ',n,' элементов: '); for i:= 1 to n do begin readln(B1[i]); if i mod 2 = 0 then B1[i]:=B1[i]/2; if i mod 2 <> 0 then B1[i]:=n; end; writeln('Массив: '); for i:= 1 to n do writeln(B1[i]) end.
2. var sum,c1,c2,i: integer; T: array [1..7] of integer; begin writeln('Введите температуру за 7 дней: '); for i:= 1 to 7 do begin readln(T[i]); sum:=sum+T[i]; end; writeln('Средняя температура: ',sum/7); for i:= 1 to 7 do begin if T[i] > sum/7 then inc(c1); if T[i] < sum/7 then inc(c2); end; writeln('Кол-во дней с температурой выше средней: ',c1,'; ниже средней: ',c2); end.
3. var x,j,max,c,sum,i: integer; BC: array [1..30] of integer; begin randomize; writeln('Массив: '); for i:= 1 to 30 do begin BC[i]:=random(51); write(BC[i]:4); if BC[i] mod 2 = 0 then inc(c); if i mod 2 = 0 then sum:=sum+BC[i]; end; writeln; writeln('Кол-во четных элементов: ',c); writeln('Сумма элементов с четными индексами: ',sum); max:=BC[1]; for i:= 1 to 30 do if BC[i] > max then max:=BC[i]; writeln('Результат: '); for i:= 1 to 30 do begin if BC[i] = i then BC[i]:=max; writeln(BC[i]); end; for i := 30 downto 2 do for j := 2 to i do if BC[j] > BC[j - 1] then begin x := BC[j]; BC[j] := BC[j - 1]; BC[j - 1] := x; end; writeln('По убыванию: '); for i:= 1 to 30 do write(BC[i]:4); end.
string chisla = "";
int max = 0;
Console.Write("Введите три числа через пробел: ");
chisla = Console.ReadLine();
int[] mas = new int[3];
for (int i = 0; i < mas.Length; i++)
{
mas[i] = Convert.ToInt32(chisla.Split(' ')[i]);
}
for (int i = 0; i < mas.Length; i++)
{
if (mas[i] > max)
{
max = mas[i];
}
}
Console.WriteLine();
Console.Write("Наибольшее число = {0}", max);
Console.ReadKey();
Объяснение:
Язык не указан, написано на C#.