Программирование тест ТУСУР сборник ответов
получить, не выполняя эту программу. Верно Question6 Блок-схемы предназначены для описания: синтаксиса программы. семантики языка программирования. алгоритма программы. Верно Выберите все верные
Тест Программирование ФДО ТУСУР
Внимательно смотрите демо файлы, там список вопросов и результат Список вопросов: Вопрос 1 Дан фрагмент программы: Type aaa = record a, b: integer; c: char; end; Var z: aaa; Выберите строки, в которых есть ошибки
Информатика (ответы на вступительный тест Синергия)
используют 18 различных букв и десятичные цифры в любом порядке. Каждый такой номер в компьютерной программе записывается минимально возможным и одинаковым целым количеством байтов, при этом используют посимвольное
1)как можно описать в паскале массив в котором будут хранится значения численности населения Москвы к концу…
1)как можно описать в паскале массив в котором будут хранится значения численности населения Москвы к концу каждого года 20 века.2) Вы приобрели котенка.Каждый вечер вы определяете его вес с помощью весов
Ответ на вопрос
1) Массив численности населения Москвы в конце каждого года 20 века можно описать следующим образом:var populationArray: array[1900..1999] of integer;2) Массив значений веса котенка в течение мая можно описать так:var weightArray: array[1..31] of real;3) Фрагмент программы на Паскале для ввода исходных данных для массивов:program InputData;
var
i: integer;
weightArray: array[1..31] of real;
begin
writeln('Введите значения веса котенка в течение мая:');
for i := 1 to 31 do
begin
write('День ', i, ': ');
readln(weightArray[i]);
end;writeln('Массив весов котенка в течение месяца Мая:');
for i := 1 to 31 do
begin
writeln('День ', i, ': ', weightArray[i]);
end;
end.
Еще
Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000.Опишите на языке программирования…
Дан массив, содержащий 2014 неотрицательных целых чисел, не превышающих 10 000.Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести сумму всех со-держащихся в массиве трёхзначных
Ответ на вопрос
const N = 2014;
var
a: array [1..N] of integer;
i, j, s, sum: integer;
begin
sum := 0;
for i := 1 to N do
begin
if (a[i] >= 100) and (a[i] <= 999) and (a[i] mod 10 = 9) and (a[i] mod 100 <> 99) then
begin
sum := sum + a[i];
end;
end;
if sum = 0 then
writeln('-1')
else
writeln(sum);
end.
Еще
Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений.…
целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из
Ответ на вопрос
program FilterArray;var
arr: array[1..200] of integer;
i, max_even, max_odd: integer;begin
// заполнение массива arr
for i := 1 to 200 do
arr[i] := random(10001); // случайное значение от 0 до 10000max_even := -1;
max_odd := -1;// поиск максимальных четного и нечетного элементов
for i := 1 to 200 do
begin
if (arr[i] mod 2 = 0) and (arr[i] > max_even) then
max_even := arr[i]
else if (arr[i] mod 2 = 1) and (arr[i] > max_odd) then
max_odd := arr[i];
end;// фильтрация массива
if max_even < max_odd then
begin
for i := 1 to 200 do
begin
if arr[i] mod 2 = 0 then
arr[i] := 0;
end;
end
else
begin
for i := 1 to 200 do
begin
if arr[i] mod 2 = 1 then
arr[i] := 0;
end;
end;// вывод отфильтрованного массива
for i := 1 to 200 do
writeln(arr[i]);end.
Еще
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно.…
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит самую большую
Ответ на вопрос
program MaxSumNeighbours;const
n = 30;var
arr: array[1..n] of integer;
i, maxSum: integer;begin
for i := 1 to n do
arr[i] := Random(10001); // заполнение массива случайными числами от 0 до 10000maxSum := 0;
for i := 2 to n - 1 do
begin
if (arr[i-1] + arr[i] > maxSum) then
maxSum := arr[i-1] + arr[i];
end;for i := 1 to n do
begin
if (arr[i] mod 3 = 0) then
arr[i] := maxSum;
end;for i := n downto 1 do
writeln(arr[i]);end.
Еще
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно.…
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит все минимальные
Ответ на вопрос
program ReplaceMinWithMax;
var
arr: array[1..30] of integer;
i, minVal, maxVal, minCount: integer;
begin
minCount := 0;// вводим элементы массива
for i := 1 to 30 do
begin
readln(arr[i]);
end;// находим минимальное и максимальное значение в массиве
minVal := arr[1];
maxVal := arr[1];
for i := 2 to 30 do
begin
if arr[i] < minVal then
minVal := arr[i]
else if arr[i] > maxVal then
maxVal := arr[i];
end;// считаем количество минимальных значений
for i := 1 to 30 do
begin
if arr[i] = minVal then
minCount := minCount + 1;
end;// заменяем все минимальные значения на максимальное
for i := 1 to 30 do
begin
if arr[i] = minVal then
arr[i] := maxVal;
writeln(arr[i]);
end;
end.
Еще
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно.…
целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит сумму элементов массива, меньших
Ответ на вопрос
program replaceElements;
const
N = 30;
var
arr: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
// ввод элементов массива
for i := 1 to N do
begin
readln(arr[i]);
// находим сумму элементов, меньших 200 и кратных 5
if (arr[i] < 200) and (arr[i] mod 5 = 0) then
sum := sum + arr[i];
end;
// замена элементов на сумму
for i := 1 to N do
begin
if (arr[i] < 200) and (arr[i] mod 5 = 0) then
arr[i] := sum;
writeln(arr[i]);
end;
end.Алгоритм находит сумму элементов массива, меньших 200 и кратных 5, сохраняет эту сумму в переменной sum и заменяет каждый такой элемент массива на значение sum, после чего выводит измененный массив.
Еще
. Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу,…
. Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество элементов, значение которых более чем в два раза
Ответ на вопрос
const N = 2014;
var a: array [1..N] of integer;
i, count: integer;begin
count := 0;for i := 2 to N do
begin
if a[i] > 2 * a[i-1] then
count := count + 1;
end;
writeln(count);end. Алгоритм находит количество элементов в массиве, которые превышают в два раза значение предыдущего элемента и выводит это количество.
Еще