Первое выражение дает единицу, т.к. в скобках во 2 части выражения получаем 1, а по таблицам истинности 0 или 1 = 1. Второе выражение дает нуль, т.к. в обеих частях выражения получается нуль, а нуль и нуль это нуль.
Var a: array[1..100] of integer; i, j, c: integer; begin Writeln('Массив '); for i := 1 to 100 do begin a[i] := random(201) - 100; write(a[i], ' '); end; Writeln; write('Введите число (от -100 до 100) '); Readln(j); for i := 1 to 100 do if a[i] = j then begin c := c + 1; write(i, ' '); end; Writeln; if c>1 then write('В массиве число введённое вами есть в массиве и даже несколько (', c, '). Их индексы представлены выше') else if c = 1 then write('Число, которое вы ввели есть в массиве. Его индекс представлен выше') else write('Такого числа в массиве нет'); end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println; Writeln('Двоек: ', a.Where(t-> t = 2).Count); Writeln('Троек: ', a.Where(t-> t = 3).Count); Writeln('Четверок: ', a.Where(t-> t = 4).Count); Writeln('Пятерок: ', a.Where(t-> t = 5).Count); Writeln('Средний за диктант: ', a.Average:0:2); end.
Пример: Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2 Двоек: 6 Троек: 8 Четверок: 3 Пятерок: 3 Средний за диктант: 3.15
