1. Правильно ли описан массив А? Если нет, то что надо дописать? Type myarray=Array[0..-n] Of Integer;
Var A: myarray;
2. Что получится в результате выполнения программы?
Program Variant5;
Const n=12;
Type myarray=Array[1..n] Of Integer;
Var C: myarray;
i: Byte; p: Integer;
Begin
For i:=l To n Do
Begin
C[i]:=-25+Random(71);
If C[i] Mod 3=0 Then p:=p+l;
End;
Writeln(p);
Readln;
End.
3. Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры. Найти:
• сумму отрицательных элементов;
• число тех элементов, значения которых положительны и не превосходят заданного числа А.
Найти номер последней пары соседних элементов с разными знаками.
#include <iostream>
#include <conio.h>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
system("title Материалы");
system("color 74");
int material;
start:
system("CLS");
cout << "Введите число для уточнение названия детали:\n";
cin >> material;
switch (material)
{
case 1: cout <<"Шуруп\n";
break;
case 2: cout<<"Гайка\n";
break;
case 3: cout<<"Винт\n";
break;
case 4: cout<<"Гвоздь\n";
break;
case 5: cout<<"Болт\n";
break;
default: cout<<"Предмет не найден\n";
break;
}
getch();
goto start;
}
1 Отрицание-инверсия(не, обозначается - )
2Действия в скобках
3 Конъюнкция-умножение(и, обозначается&)
4 Дизъюнкция-сложение(или, обозначается галочкой)
истина-1,ложь-0
например:
1галочка0&1 следуя по всем законам математики, сначала выполняется умножение т.е & значит 0*1=0, а затем выполняем сложение(галочка) 1+0=1 следовательно ответ истина
1) 1&0=0-ложь
2)1 галочка0=1-истина
3) не 1 галочка 0 - 0+0=0-ложь
4)1 & 0 галочка 1=1*0+1= 1-истина
5)1 галочка 0&1=1+0*1=1-истина
6)не1 галочка 0 &1=0+0*1=0-ложь
7)(1галочка0) &(1галочка0)=(1+0)*(1+0)=1*1=1-истина
8)не(1галочка0) & (1галочка0)=не(1+0)*(1+0)=не1* 1=0*1=0-ложь
9)не(1&0&1)=не(1*0*1)=не(0*1)=не0=1-истина