seleznev1980
?>

Запишите алгоритм рисования шляпы в программе ScetchUp (записываем коротко в одну строку, через запятые) *

Информатика

Ответы

rsksnb
Заполнение с клавиатуры:

Var
   A:array[1..5] of integer;
   i,O,P:integer;
Begin
Write('Введите массив A(5): ');
O:=0;
P:=0;
For i:= 1 to 5 do
    Begin
    Read(A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.

Заполнение случайными числами:

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i,O,P:integer;
Begin
Randomize;
Write('Введите массив A(5):');
O:=0;
P:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.
beglovatatiyana
Cin - для ввода с клавиатуры
cout - для вывода на экран
Пример:
int x,y; //объявляем переменный целого типа
std::cout<<"X = "; //На экран выводится 'X = '
std::cin>>x; //вводим с клавиатуры число, например: 5

Оператор if - служит для того, чтобы выполнить какую-либо операцию в том случае, когда условие является верным.
Каждому оператору if соответствует только один оператор else. Совокупность этих операторов — else if означает, что если не выполнилось предыдущее условие, то проверить данное. Если ни одно из условий не верно, то выполняется тело оператора else.
Пример:
if (num < 10) { // Если введенное число меньше 10.
cout << "Это число меньше 10." << endl; 
} else { // иначе
cout << "Это число больше либо равно 10." << endl; }

Что то типа того)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запишите алгоритм рисования шляпы в программе ScetchUp (записываем коротко в одну строку, через запятые) *
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Титова674
ilonchick679
evlampin
Андрей Шитенкова
krutikovas
Dimston134877
mustaevdmitry397
Batishcheva
punchf
lovel24
bakerkirill
Stepan Rastorgueva850
ИринаАлександровна
rytikovabs
Николаевич1033