Значения двух массивов a[1..10] и b[1..10] с следующего фрагмента программы: for i: =1 to 10 do a[i]: =10-i; for i: =1 to 10 do b[i]: =a[5] – a[i] сколько элементов массива будут иметь отрицательные значения? 1) 0 2) 5 3) 10 4) 4
var A:array[1..10] of integer; var B:array[1..10] of integer; var i,j:integer; begin for i:=1 to 10 do A[i]:=10-i; for i:=1 to 10 do B[i]:=A[5] - A[i]; for i:=1 to 10 do begin writeln(A[i]); writeln(B[i]); end; readln; end.
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
#include <iostream> using namespace std; int main() { setlocale(0,""); int a; cout<<"введите значение погоды"<<endl; cout<<"1-тепло"<<endl; cout<<"2-жарко"<<endl; cout<<"3-холодно"<<endl; cout<<"4-колотун"<<endl; cin>>a; switch (a) { case 1: cout<<"вы можете одеть джинсы и футболку"<<endl; break; case 2: cout<<"вы можете одеть шорты и майку "<<endl; break; case 3: cout<<"вы можете одеть штаны и толстовку "<<endl; break; case 4: cout<<"вы можете одеть куртку и свитер с подштанниками и ватными штанми "<<endl; break; } return 0; }
var A:array[1..10] of integer;
var B:array[1..10] of integer;
var i,j:integer;
begin
for i:=1 to 10 do
A[i]:=10-i;
for i:=1 to 10 do
B[i]:=A[5] - A[i];
for i:=1 to 10 do begin
writeln(A[i]);
writeln(B[i]);
end;
readln;
end.
ответ: 4