Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.
GridnevaVNIGNI"
03.10.2020
Информация — от латинского слова "information", что означает сведения, разъяснения, изложение. Информа́тика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений. Программи́рование — процесс создания компьютерных программ.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Укажите, какое логическое выражение равносильно выражению ¬(a/\b)/\c выберите один ответ: (¬a\/¬b)/\c a/\¬b/\¬c (a/\b)/\¬c a/\¬(b/\c)