Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10 и найти кол-во элементов массива значение которых равно 4 (в паскаль) free pascal

Var i,k : integer;   a: array[1..10] of integer; begin   for i : = 1 to 10 do begin       a[i] : = random(7) + 3;       if a[i] = 4 then k: = k + 1;   end;   writeln(k); end.

Потому что (и) значит, что условие верно толькое если все его подусловия верны; представим (и) в виде умножения, а множители: 0(неверно) и 1(верно), тогда по правилам умножения получится: 1*0=0, 0*1=0, 0*0=0, 1*1=1, т.е если оба множители 1(верны), то и все выражение верно. со сложением также: или - значит выражение верно, если одно из условий выполнятся, берем слагаемые: 0(неверно) и 1(верно), по правилам сложения: 1+0=1, 0+1=1, 0+0=0, 1+1=1, т.е если хотя бы 1 слагаемое верно, то и все выражение верно.

#include < stdio.h> int main() {     int n;     char c;     printf("исходное направление робота (n,w,s,e): ");     scanf("%c",& c);     printf("команда (0,1,-1,2,-2): ");     scanf("%d",& n);     while (n ! = 0){     switch (n) {     case 1 : break;     case -1:     switch (c) {     case 'n' : c = 's'; break;     case 'w' : c = 'e'; break;     case 's' : c = 'n'; break;     case 'e' : c = 'w'; break;     };     break;     case 2 :         switch (c) {     case 'n' : c = 'e'; break;     case 'w' : c = 'n'; break;     case 's' : c = 'w'; break;     case 'e' : c = 's'; break;     };     break;     case -2:         switch (c) {     case 'n' : c = 'w'; break;     case 'w' : c = 's'; break;     case 's' : c = 'e'; break;     case 'e' : c = 'n'; break;     };     break;     }     printf("c = %c\n", c);     printf("команда (0,1,-1,2,-2): ");     scanf("%d",& n);     }     return 0; } пример: исходное направление робота (n,w,s,e): nкоманда (0,1,-1,2,-2): 2c = e команда (0,1,-1,2,-2): 1c = e команда (0,1,-1,2,-2): -2c = n команда (0,1,-1,2,-2): -1c = s команда (0,1,-1,2,-2): 0