<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
Program test;
const m=4;
var a:array[1..m] of byte;
i,k:byte;s:integer;
begin
s:=0;
writeln('Введите информацию о баллах видов спорта');
for i:=1 to m do
begin
write(' ',i,'-й вид спорта:');
readln(a[i]);
s:=s+a[i];
end;
write('Введите общее количество баллов по 10 видам спорта:');
readln(k);
if s>k
then
writeln('Спортсмен проходит в следующий тур')
else
writeln('Спортсмен не проходит в следующий тур');
<span>end. </span>
Может все основные точно не знаю
А) 1. может иметь структуру "сетка"
2. размещает файлы в представлении значков и иконок
3. является основным инструментом в начале работы
б) 1. имеет дерево папок
2. дает инфо о ОС компьютера при вызове контекстного меню
3. является программой по умолчанию
в) 1. имеют только те документы, которые доступны отпред. пользователю
2. могут содержать любые типы файлов
3. зачастую стандартная директория сохранения файлов
<span>Держите.
Var
s:real;
i,n:integer;
Begin
Writeln('Введите количество лет и сумму Вашего вклада');
Readln(n,s);
For i:=1 to n do
s:=s+s*0.03;
Write(s);
Readln;
End.
</span>___________
<span>Var s:real;
i,n:integer;
Begin
Writeln('</span>Введите количество лет и сумму Вашего вклада'<span>);
Readln(n,s);
i:=1;
Repeat
s:=s+s*0.03;
inc(i);
Until i>n;
Write(s);
Readln;
end.</span>
