<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.
<u>Пример</u>
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31
Sum = 0
while x!= 0:
a = int(input())
if( a % 10 == 3) or (a % 3 == 0):
sum+=1
print(sum)
только я надеюсь вы знаете как оформляется цикл и if. Ибо здесь всё формотируется и все нужные TAB'ы исчезают
Ответ: 2025 Кбайт или 2073600 байт
1920 * 1080 = 2073600 точек
256 вариантов цвета кодируется 8 битами или 1 байтом (2⁸ = 256)
2073600 точек = 2073600 байт или 2073600 / 1024 = 2025 Кбайт
1) "мир" становится в расширение
2) "Енисей" сдает назад
3) "Обь" и "Восток" проходят дальше прохода навстречу "Енисею"
4) "Мир" выходит из расширения
5) "Обь" и и " Восток" сдают назад к прооду
6) "Енисей" становится в проход
7) "Обь" и "Восток" проплывают проход
8) "Енисей" выходи из прохода
#include <iostream>
#include <cstdlib>
using namespace std;
int main(){
int a[16];
int i=0,c;
for(i; i<16; i++){
a[i]=rand()%40+10;
cout<<a[i]<<' ';
}
i=0;
for(i; i<4; i++){
c=a[i];
a[i]=a[7-i];
a[7-i]=c;
}
for(i=8; i<12; i++){
c=a[i];
a[i]=a[23-i];
a[23-i]=c;
}
cout<<endl;
for (i=0; i<16; i++){
cout<<a[i]<<' ';
}
return 0;
}
Вроде правильно, проверь. Вопросы, недочеты в ЛС