Задавайте вопросы в комментариях. Постараюсь ответить на все вопросы по теме.
Поиск по сайту
Рубрики
Что-то интересненькое
3D-моделирование 9 мая Photoshop Акция Вдохновение Вера в человечество Выпускнки Выставка Гимназия 7 ДЗ Инфографика Информатика КВН Каникулы Командная работа Конференция Методика Олимпиада Открытка Победа Портфолио Программирование Профориентация Рисунок Робототехника СГТУ СГУ Соревнование Технология Урок Ученик Фестиваль Фестиваль науки ЦМИТ Час кода Яндекс.Лицей анкета безопасность биография история ошибки проект сайт ссылка хостингАрхивы
Ноябрь 2023 Пн Вт Ср Чт Пт Сб Вс « Июль 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
Как ввести в массив: Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет количество чётных и количество нечётных элементов этого массива.
program ww;
var
s: array[1..10000] of longint;
w,ch,nch,N,B,A:integer;
begin
readln(A,B,N);
while (N0) do
begin
N:= N-1;
w:= random(b-a+1)+a;
write(w,’ ‘);
if w mod 2=0 then
Ch:=Ch+1 else
Nch:=Nch+1
end;
writeln(‘ ‘);
writeln(Ch,’ ‘,Nch);
end.
Если для сайта, то write(w,’ ‘); не нужно, так как в условии это не требуется
Напишите программу, которая находит в массиве количество элементов, равных максимальному.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 max)then
max:=A[i];
end;
for i:= 1 to N do begin
if ((A[i])=max)then
p:=p+1;
end;
write(max,’ ‘,p);
end.
Выдает только 12 баллов, найдете, пожалуйста, ошибку
Напишите программу, которая находит в массиве минимальный и максимальный из чётных положительных элементов.
Входные данные
Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .
Выходные данные
Программа должна вывести в одной строке минимальный и максимальный из чётных положительных элементов массива, разделив их пробелом. Если в массиве нет чётных положительных элементов, программа должна вывести два числа -1.
program ww;
var
A: array[1..10000] of longint;
i,min,max,N,p:integer;
begin
readln(N);
for i:= 1 to N do begin
read(A[i]);
end;
min:=10001;
max:=0;
for i:= 1 to N do begin
if(((A[i])0)and((A[i])mod 2=0))then
min:=A[i];
if(((A[i])>max)and((A[i])>0) and ((A[i])mod 2=0))then
max:=A[i];
end;
if ((max>0)and(min<=10001))then
write(min,' ',max)else
write('-1')
end.
Выдает только 12 баллов, укажите на ошибку
min:=10001; неправильно, так как не указано максимальное значение элементов. Следует взять за минимум первый попавшийся элемент.
min:=A[0];
max:=A[0];
Но если брать первый попавшийся, то он может не удовлетворить условиям (чётных положительных)
Но спасибо, что указали на ошибку. Я все же справилась с задачей.