Ii тограммирование»вариант1. в программе описан одномерный целочисленный массив асиплексами от 0 до 10ниже представлен фрагмент этой программы, записанный на языке pascal, вкотором значения элементов массива сначала заднотся, а затем меняютсяfor i: =0 to 10 doa[0]: =i+3; for i: =10 downto 1 doa[i-1]: = a[i]); чему будут равны элементы утого массива после выполненияпрограммы? того фрагмента2 значения двумерного массива дразмера 8х8 залаioтся с воженногооператора цикла в представленном фрагменте программыfor i: =1 to 8 dofor j: =1 to 8 doa[i]: =ii-i; сколько элементов массива а будут равны нулю? 3. в программе описан одномерный целочисленный массив ас индексами от 0 до 10hске представлен фрагмент этой программы, записанный на языке pascal, вкотором значения элементов массива сначала , а затем меняютсяfor i: =0 to 10 doa[i]: =i+2; for i: = 0 to 10 dobeginа(10-i]: = a[i]: a[i] = а(10-і); end; чему будут равны элементы этого массива после выполнения того фрагментапрограммы? 4. var x, y: string, l: byte; beginх='информация, y='автоматика".delete(x, 6, 5); delete(y, 1, 4); 1: =length(x+y): write (z); чему будет равна переменная 7 после выполнения того фрагмента программы? 5. составьте программу подсчета суммы всех отрицательных элементов заданного це-лочисленного массива размером 30 элементов если отрицательных элементов нетсообщите об этом (элементы массива произвольные целочисленные числа, которыевводит пользователь7. дана исходная строка (вводиться с клавиатуры) составьте программу, котораяподсчитывает количество букв «b» в этой строке.
Ответы
1) От 10 до 14
2) random(1, 10); random(-10,10); random(50,100);
3)
var a:array[1..100] of integer;
i, p, o:integer;
begin
p := 0;
o := 0;
for i := 1 to 100 do
a[i] := random(-20, 20);
writeln(a);
for i := 1 to 100 do begin
if a[i] >= 0 then p := p + 1
else o := o + 1;
end;
writeln('Положительных: ' + p);
writeln('Отрицательных: ' + o);
end.
4)
var a:array[1..20] of integer;
b:array[1..20] of integer;
i:integer;
begin
randomize;
for i := 1 to 20 do
begin
a[i] := random(1, 5);
b[i] := random(1, 5);
end;
for i := 1 to 20 do begin
if a[i] = b[i] then begin
writeln('Номер: ' + i);
writeln('Значение: ' + a[i]);
end;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Переведите число 43 из десятичной в двоичную систему счисления
Автор: Александровна-Грузман
Составить программу которая считывает 6 чисел и найти сумму неотрицательных чисел.
Автор: Yekaterina_Popova1413
Правило получения числа из функции Random(X):
0 <= RandomNum < X
1)
От 1 до 10 – Random(10)+1
От -10 до 10 – Random(21)-10
От 50 до 100 – Random(51)+50
2)
Y:=10+Random(5)
Random(5):
Левая граница = 0
Правая граница = 4
Отсюда, Y ∈ [10; 14].
3)
// PascalABC.NET
// Версия 3.4.2, сборка 1956 (01/30/19)
var
arr: array[0..99] of integer;
p, n: integer;
begin
(p, n) := (0, 0);
for var i := 0 to 99 do
begin
arr[i] := Random(41) - 20;
if (arr[i] > 0) then inc(p)
else if (arr[i] < 0) then inc(n);
end;
Println('Positive:', p);
Println('Negative:', n);
end.