Var
A,Sp,So:real;
i:integer;
Begin
Sp:=0;
So:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A<0 then So:=So+A
else Sp:=Sp+A;
End;
WriteLn('Сумма отрицательных: ',So);
WriteLn('Сумма положительных: ',Sp);
End.
Делим 9 монет на 3 кучи по 3 монеты
берем 2 кучи по 3 монеты и взвешиваем
если они равные,то монета в третьей кучке
Берем 3 кучу и делим её на еще 3 монеты
в итоге берем 2 монеты и взвешиваем,если они равные,то фальшивая 3 монета
Понял?
Объяснение:
1. Указывает что будет выполнять скрипт bash
2. Объявляем массив, но ничего не записываем в него.
3. Командой echo выводим надпись с просьбой ввести кол-во элементов массива
4. Считываем кол-во элементов с клавиатуры и записываем это значение в переменную elements
5. Выполняем цикл
6. В цикле запрашиваем элемент
7. Записываем этот элемент в массив
8. Заканчиваем цикл
9. Выводим массив
Всего 16 символов (учитывая пробелы и точку), значит 16*16=256 бит.