Var a:array[1..100] of integer; n,i,k,c:integer; begin Randomize; write('n = '); readln(n); Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(100); write(a[i]:6); end; writeln; for k := 1 to n-1 do for i := n-1 downto k do if a[i] > a[i+1] then begin c:=a[i]; a[i]:=a[i+1]; a[i+1]:=c end; Writeln('Отсортированный массив:'); for i:=1 to n do write(a[i]:6); writeln; end.
type wind = record c: char; //направление ветра (с,ю,в,з) f: integer; //сила ветра end;
var a: array[1..n] of wind; i, nday: integer;
begin for i := 1 to n do begin write(i, ' - день направление ветра (с,ю,в,з)'); readln(a[i].c); write('сила ветра :'); readln(a[i].f); if (a[i].c = 'ю') and (a[i].f <= 4) then nday := nday + 1; end; writeln(' Дней когда дул южный ветер с силой, не превышающей 4 м/с :',nday); end.
Тестовое решение: 1 - день направление ветра (с,ю,в,з)с сила ветра :7 2 - день направление ветра (с,ю,в,з)с сила ветра :7 3 - день направление ветра (с,ю,в,з)ю сила ветра :6 4 - день направление ветра (с,ю,в,з)ю сила ветра :5 5 - день направление ветра (с,ю,в,з)ю сила ветра :4 6 - день направление ветра (с,ю,в,з)в сила ветра :4 7 - день направление ветра (с,ю,в,з)ю сила ветра :3 8 - день направление ветра (с,ю,в,з)в сила ветра :5 9 - день направление ветра (с,ю,в,з)з сила ветра :4 10 - день направление ветра (с,ю,в,з)ю сила ветра :3 Дней когда дул южный ветер с силой, не превышающей 4 м/с :3
//Поскольку не указан данный массив, то заполню его случайными числами
using System;
namespace ConsoleApp2
{
class Program
{
static void Main(string[] args)
{
Random rand = new Random();
const int size = 10;
const int x = -100;
const int y = 100;
int counter = 0;
int[] arr = new int[size];
Console.WriteLine("Массив:");
for (int i = 0; i < size; i++)
{
arr[i] = rand.Next(x, y);
if (arr[i] < 0)
counter++;
Console.WriteLine((i + 1) + ") " + arr[i]);
}
Console.WriteLine("\nКоличество отрицательных элементов: " + counter);
Console.ReadKey();
}
}
}