№7
1.44 Мбайт=1474,56 КБайт
1474,56 : 100 = 14 , Ответ : 14 файлов
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
Это несложно. Я правда делал в аналоге Экселя, но сохранил в Экселевском формате, и функция ЕСЛИ там такая же (смотри приложенные файлы).
Программа для резервного копирования данных на системный диск.
Так как изначально в задании указано : "на любом известном вам языке программирования" - вот, держи на С.
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
#define N 100
int main()
{
setlocale(LC_ALL, "Rus");
int i, M;
float B[N], MIN;
printf(" Введите количество элементов массива (не больше 100) => ");
scanf("%d", &M);
if (M < 100)
{
for (i = 0; i < M; i++)
{
printf("Введите [%d] элемент массива =>", i);
scanf("%f", &B[i]);
}
for (i = 0; i < M; i++)
printf("%1.0f ", B[i]);
MIN=B[0];
for (int i=1; i<M; i++)
{
if (B[i]<MIN)
MIN=B[i];
}
printf ("\n\tМинимальное значение в массиве => %7.2f", MIN);
}
else
printf("Ошибка. Заданное число элементов массива слишком большое.");
return 0;
}