1. найти те элементы массива, которые равны сумме двух своих соседей. первый и последний элемент имеют только по одному соседу, поэтому искомыми быть не могут. на вход программе сначало подается значение n< =100 – количество элементов в массиве. в следующей строке расположены сами элементы массива – целые числа, по модулю не превосходящие 10000. выдайте значения искомых элементов массива в том же порядке, в каком они располагались во входных данных. 2. на вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. всего будет введено не более 100000 чисел. подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т.д. и выдайте результат. в выходных данных всегда должно быть 9 чисел. 3. текст на языке запишите в массив a[1..1000] of char. помимо букв в нем могут встречаться пробелы и знаки препинания. в массиве b [‘a’ ..’z’’] of integer получите сведения о том, сколько и каких букв встречается в этом тексте. при подсчете строчные и прописные буквы не различать. на вход программе подается значение n< =1000 – количество символов в тексте. в следующей строке входных данных расположены сами символы (без разделителей выдайте 26 чисел – значения элементов массива b. пример входные данные выходные данные 12 hello world! 0 0 0 1 1 0 0 1 0 0 0 3 0 0 2 0 0 1 0 0 0 0 1 0 0 0 4. подсчитайте за один проход, сколько его элементов равны максимальному элементу. на вход программе сначала подается значение n< =100 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. выдайте количество искомых элементов массива. 5. в массиве, заполненным произвольными целыми числами, найдите два числа, произведение которых максимально. вложенные циклы не используйте. на вход программе сначала подается значение n< =10000 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы – целые числа, по модулю непревосходящие 30000. выдайте два искомых числа в порядке неубывания. 6. на вход программе сначала подается значение n< =100 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. распечатайте только те значения элементов массива, которые встречаются в нем ровно один раз. элементы следует распечатывать в том порядке, в котором они встречаются в массиве. решите любые две
Ответы
1var a: array [1..100] of integer; i,n: integer; begin writeln('введите n < =100'); readln(n); writeln('введите массив'); for i: =1 to n do readln(a[i]); writeln('массив'); for i: =1 to n do write(a[i], ' '); writeln; writeln('элементы равные сумме двух соседей: '); for i: =2 to (n-1) do if a[i]=(a[i-1]+a[i+1]) then write(a[i],' '); writeln; end. 5 var a: array [1..10000] of integer; i,n, mx1, mx2: integer; begin writeln('введите n < =10000'); readln(n); writeln('введите массив'); for i: =1 to n do readln(a[i]); writeln('массив'); for i: =1 to n do write(a[i], ' '); writeln; mx1: =1; for i: =2 to n do if a[i]> a[mx1] then mx1: =i; if mx1=1 then mx2: =2 else mx2: =1; for i: =1 to n do if (a[i]> a[mx2])and(i< > mx1) then mx2: =i; writeln('два числа произведение которых максимально: ',a[mx2],' ',a[mx1]); end.
Program ex1; var s: string; c: char; i, n, m, min: integer; begin s : = ''; m : = 0; n : = 0; min : = 10; writeln('введите число'); repeat read(c); s : = s + c; i : = strtoint(c); if i mod 2 = 0 then if c < > '0' then m : = m + 1; // для 2) n : = n + 1; if i < min then min : = i until c = '0'; writeln('введено число ', s, ', в нем четных цифр- ', m) end. program ex2; var s: string; i, d, n, min: integer; begin min : = 10; writeln('введите число'); readln(s); n : = length(s); for i : = 1 to length(s) do begin d : = strtoint(s[i]); if d < min then min : = d end; writeln('введено число ', s, ', в нем цифр- ', n, ', минимальная- ', min) end.
#include < iostream> #include < ctime> using namespace std; int main () { setlocale (0,"russian"); srand (time(null)); short n; int sum=0; int max=0; cout < < "n="; cin > > n; int *array=new int [n]; for (short i=0; i< n; i++) array[i]=rand()%201-100; cout < < "получившийся массив: " < < endl; for (short i=0; i< n; i++) { cout < < array[i] < < ' '; sum+=array[i]; } for (short i=0; i< n-1; i++) { if (max< array[i]) max=array[i]; } cout < < endl; cout < < "сумма элементов: " < < sum < < endl; cout < < "максимальное число: " < < max < < endl; system ("pause"); return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
