1) (Если была высшая математика, то должно быть понятно.) Ну допустим надо посчитать сред. ариф. всех элементов массива. Пусть будет массив размерностью (Типа таблица) 3х3, запишем его так (он двухмерный) A[n,m]; - основное положение массива, где n строка, где m столбец. Давать ему наименование равно такому же смыслу как и Program N; никаких цифр впереди например 1A, правильно записывать массив - A1, XD1D4, _s4; _1; _1d1 и т.д. Массив должен иметь такой же тип переменных какой задан в условии, т.е. непосредственно real = real. Элементы массива записываются через запятую. И снова же, если массив имеет тип данных целых чисел, то элементы его тоже должны соответствовать им A[i,j] = integer; i,j - type integer; Сейчас допишу остальные
uses crt; var a, b, c, n, i, j :integer; s :array [1..10000] of integer; begin clrscr; writeln ('Vvedite razmer masiva'); read (n); writeln ('Vvedite chislo X'); read (a); for i:=1 to n do begin writeln ('Vvedit s[', i, '] element'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do if s[j]<s[j+1] then begin b:=s[j]; s[j]:=s[j+1]; s[j+1]:=b; end; for i:=1 to n do begin write (s[i], ' '); if s[i]=a then inc (c); end; writeln; if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end.
P.S. Надеюсь на благодарность и лучший ответ.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку