ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В PASCAL! ПОЖАЛУЙСТА!
10-11 класс
|
Дан массив X(N,M). Если первый элемент массива положительный, то найти сумму элементов среди элементов четных строк массива, иначе произведение.
123456789101112k:=0;s:=1;if a[1]>0 then begin for i:=1 to n do k:=k+a[i]; write('Сумма элементов равна ',k);endelse if a[1]<0 then begin for i:=1 to n do s:=s*a[i]; write('Произведение элементов равна ',s);end;
Другие вопросы из категории
а) 21,5 б)432,54 в)678,333
Нужен не просто ответ, а, желательно, объяснение
они дали такие ответы: Серёжа: 1) Я не разбивал. 2) Вася не разбивал. Вася: 3) Серёжа не разбивал. 4) Вазу разбил Коля. Коля: 5) Я не разбивал. 6) Вазу разбил Серёжа. Бабушка знала, что один из её внуков (правдивый), оба раза сказал правду; второй (шутник) оба раза сказал неправду; третий (хитрец) один раз сказал правду, а другой раз - неправду. Назовите имена правдивого, шутника и хитреца. Кто из внуков разбил вазу?
Решение нужно через таблицу истинности.
Читайте также
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Дано натуральное число n. Написать программу вычисляющую сумму