1
Ключевое слово USES указывает программе, что необходимо подключить дополнительный внешний модуль (файл с описанием и определение различных функций) .
Crt является одним из стандартных модулей. В нем описаны и определены функции для работы с текстовой информацией на дисплее
2
начало блока определения переменных
3
массив
4
ввод данных с клавиатуры
5
тип данных
6
используется для начала исполняемой секции функции, метода объекта, процедуры, программы, свойства объекта или используется для отделения начала выражения блока
7
очистка экрана
8
используется для включения генератора случайных чисел
Ответ:
1 - D
3- В ( скорее всего)
4 - С
5 - ломаная линия ( нарисуй три стороны восьмиугольника )
6 -----
7 - скорее всего В, ибо С не видно...
Объяснение:
Хром жрет переносы строк - сейчас поправлю
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace replaceThis{
class main{
static void Main(){
int N = 10;
int[] arr = new int[N];
Random rand = new Random();
Console.Write("Исходный массив: ");
for (int i = 0; i < N; ++i){
arr[i] = rand.Next(1, 9);
Console.Write("{0} ", arr[i]);
}
Console.WriteLine("");
int maxI, minI;
maxI = minI = 0;
for(int i = 1; i< N; ++i){
if (arr[maxI] < arr[i])
maxI = i;
if (arr[minI] > arr[i])
minI = i;
}
int temp = arr[minI];
arr[minI] = arr[maxI];
arr[maxI] = temp;
Console.WriteLine("Индекс максимального - {0}. Индекс минимального - {1}.", maxI, minI);
Console.Write("Измененный массив: ");
for (int i = 0; i < N; ++i)
Console.Write("{0} ", arr[i]);
Console.ReadKey();
}
}
}
Все очень просто за вас это решил <span>Билл Гейтс. В виндовс может быть несколько пользователей и каждый заходит в "свой компьютер". Ну а корзина одна на всех.</span>
<span>Program Z2;
</span><span>uses crt; // Подключение модуля
</span>Const //Описание констант
n =16;
var //Описание переменных
s1,s2:real;//Не совсем понятно зачем real, ведь массив integer
<span>var
q: string; //Строковая переменная !!!Вообще нигде не используется
</span>Var m: array [1..n] of integer; //Массив целых чисел
Var i,j:integer; //Переменные цикла !!Хватило бы и одной
begin
//Формирование массива
for l:=1 to n do
read(m[i]);
//Обнуление переменных сумм
s1:=0;
s2:=0;
for J:=1 to 8 do
begin
//Подсчет суммы элементов с четным порядковым номером
s1:=s1+m|2*j];
//Подсчет суммы элементов с нечетным порядковым номером
s2:=s2+m|2*j-1];
end;
If s1>s2 then //Условие
<span>writeln('cyммa элементов с четным индексом больше. чем сумма с нечетным);
end.</span>