Program enot;
Var A: array[1..50] of integer;
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
<span>end.</span>
Вот ОДНО из ВОЗМОЖНЫХ рассуждений (вероятно, можно уловить и другие алгоритмы):
В числе А - одна единица
В числе Б - две единицы
В числе В - три единицы
В числе Г - две единицы (то есть поехали назад...)
Значит в числе Д - ОДНА единица, т.е. Д - 100
using System;
namespace Application
{
class MainClass
{
public static void Main (string[] args)
{
int dvm = 0;
Console.WriteLine ("Введите номер месяца:");
int mec = Convert.ToInt32 (Console.ReadLine());
Console.WriteLine ("Введите день:");
int den = Convert.ToInt32 (Console.ReadLine());
if (mec > 0 && mec < 13 && den > 0 && den < 32) {
switch (mec) {
case 1:
dvm = 0;
break;
case 2:
dvm = 31;
break;
case 3:
dvm = 59;
break;
case 4:
dvm = 90;
break;
case 5:
dvm = 120;
break;
case 6:
dvm = 151;
break;
case 7:
dvm = 181;
break;
case 8:
dvm = 212;
break;
case 9:
dvm = 243;
break;
case 10:
dvm = 273;
break;
case 11:
dvm = 304;
break;
case 12:
dvm = 334;
break;
}
int dng = 365 - (dvm + den);
Console.WriteLine ("До нового года осталось " + dng + " дней");
Console.ReadLine ();
} else {
Console.WriteLine ("Ошибка");
Console.ReadLine ();
}
}
}
}
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99); a.Println(4);
for var r:=0 to 3 do
a.SetRow(r,a.Row(r).OrderBy(t->t).ToArray);
Writeln('*** Отсортированный массив ***'); a.Println(4)
end.
<u>Пример</u>
*** Исходный массив ***
-51 13 46 -81
66 52 -8 -58
-30 7 44 1
12 11 -98 -90
*** Отсортированный массив ***
-81 -51 13 46
-58 -8 52 66
-30 1 7 44
-98 -90 11 12
