Из 16-ти чисел, спросите у пользователя ,сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли
10-11 класс
|
оно четным или отрицательным.(Паскаль)
Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)
Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!
var a:array[1..16] of longint;
i:longint;
begin
for i:=1 to 16 do
read(a[i]);
for i:=1 to n do
if (a[i] mod 2=0)or (a[i]<0) then writeln(a[i]);
end;
var
a: array[1..16] of integer;
i:integer;
c,r,s:real;
begin
writeln('vvedite 16 zisel');
for i:=1 to 16 do
readln(a[i]);
for i:=1 to 16 do begin
write(a[i], ' ');
if a[i] mod 2 = 0 then
write('chetnoe, ')
else
write('ne chetnoe, ');
if a[i]>= 0 then
write('polozitelnoe, ')
else
write('otrezatelnoe, ');
writeln()
end;
end.
Другие вопросы из категории
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
2) Вы бросаете два кубика с нанесенными на гранях цифрами от 1 до 6. Определите, сколько битов информации несет сообщение о том, что на одном кубике выпала тройка, а на другом- пятерка.
3) Предположим, вероятность того, что вы получите за контрольную работу оценку "5", равна 0,6; вероятность получения "4" равна 0,3; вероятность получения "3"-0,1. Определите, сколько битов информации будет нести сообщение о результатах контрольной работы в каждом из вариантов. ПОЖАЛУЙСТА, ПОМОГИТЕ!!!
1.Какое количество информации получит игрок, которому из колоды в 32 карты
достают короля пик? А если то же, но из колоды в 36 карт?
2. В рулетке общее количество лунок 128. Какое количество информации мы получаем, увидев, что шарик остановился в 25 черное?
3.Сколько страниц в брошюре, если сообщение о том, что случайно открылась 17 страница содержит 6 бит информации?
4. Сколько нужно задать вопросов, чтобы угадать натуральное число не более 100?
2. Сколько килобайтов составит сообщение из 384 символов 16-ти символьного алфавита?