Ii тограммирование»
вариант
1. в программе описан одномерный целочисленный массив асиплексами от 0 до 10
ниже представлен фрагмент этой программы, записанный на языке pascal, в
котором значения элементов массива сначала заднотся, а затем меняются
for i: =0 to 10 do
a[0]: =i+3;
for i: =10 downto 1 do
a[i-1]: = a[i]);
чему будут равны элементы утого массива после выполнения
программы?
того фрагмента
2 значения двумерного массива дразмера 8х8 залаioтся с воженного
оператора цикла в представленном фрагменте программы
for i: =1 to 8 do
for j: =1 to 8 do
a[i]: =ii-i;
сколько элементов массива а будут равны нулю?
3. в программе описан одномерный целочисленный массив ас индексами от 0 до 10
hске представлен фрагмент этой программы, записанный на языке pascal, в
котором значения элементов массива сначала , а затем меняются
for i: =0 to 10 do
a[i]: =i+2;
for i: = 0 to 10 do
begin
а(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» в этой строке.
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.
program pr1;
uses
crt;
const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);
type
arr2 = array of integer;
var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;
begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;
writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.