1. Реализовать функцию, которая на вход получает количество файлов и возвращает его с размерностью, в которой будет один из трех вариантов окончания: файлов, файл или файла. Например:
get_dimention(1); // возвращает '1 файл'
get_dimention(12); // возвращает '12 файлов'
get_dimention(2); // возвращает '2 файла'
Пример на Паскале. Пусть массив размером 100 элементов
Program Maasiv;
var A:array[1..100] of real; i,s:integer; k :real;
begin
random;
For i:=1 to 100 do A[i]:=randomize(100)-50; {заполняем массив случайными числами от -50 до 50}
s:=0; for i:=1 to 100 do if A[i]<i then S:=S+A[i]; writeln(s);{задание а}
s:=0; for i:=1 to 100 do if i/2=int(i/2) then S:=S+A[i]; writeln(s);{задание б}
s:=0; for i:=1 to 100 do if A[i]<0 then S:=S+A[i]; writeln(s);{задание в}
readln(k);s:=0; for i:=1 to 100 do if A[i]>k then S:=S+A[i]; writeln(s);{задание г}
end.