Например, если тебе сказали, что вечеринка будет в субботу, а на самом деле она назначена на пятницу; если тебе сказали, что поезд отъезжает в 18.00, а его отъезд запланирован в 17.30; если тебе сказали, что день рождения у человека 17 февраля, а оно 19 февраля; если тебе сказали, что у митохондрий нет ДНК (хотя есть); - тебе сообщили недостоверную информацию, т.е. не соответствующую действительности. Ты можешь написать о любом подобном случае.
P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)
var a: array[1..nn] of integer; m, n, max, min, i, kn, kz, kp, kt, nmax, nmin, t: integer;
begin Write('Задайте количество элементов в массиве (1-50): '); Readln(n); Write('Введите значение для поиска: '); Readln(t); Writeln('Введите элементы массива'); max := -32768; min := 32767; kn := 0; kz := 0; kp := 0; kt := 0; for i := 1 to n do begin Read(m); if max < m then begin max := m; nmax := i end else if min > m then begin min := m; nmin := i end; if m < 0 then Inc(kn) else if m = 0 then Inc(kz) else Inc(kp); if m = t then Inc(kt); a[i] := m end; m := a[nmax]; a[nmax] := a[nmin]; a[nmin] := m; Writeln('Результирующий массив'); for i := 1 to n do Write(a[i], ' '); Writeln; Writeln('Количество элементов, равных ', t, ': ', kt); Writeln('Количество отрицательных элементов равно ', kn); Writeln('Количество нулевых элементов равно ', kz); Writeln('Количество положительных элементов равно ', kp) end.
Тестовое решение: Задайте количество элементов в массиве (1-50): 13 Введите значение для поиска: 7 Введите элементы массива 15 -6 11 0 7 0 18 -7 -3 -4 7 0 12 Результирующий массив 15 -6 11 0 7 0 -7 18 -3 -4 7 0 12 Количество элементов, равных 7: 2 Количество отрицательных элементов равно 4 Количество нулевых элементов равно 3 Количество положительных элементов равно 6
P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)