Решить в паскалеЗадача 1Дан массив, содержащий неотрицательные целые числа, не превышающие 10 000. В массиве присутствуют чётные и нечётные числа. Необходимо вывести:— минимальный чётный элемент, если количество чётных элементов не больше, чем нечётных;— минимальный нечётный элемент, если количество нечётных элементов меньше, чем чётных.Например, для массива из шести элементов, равных соответственно 4, 6, 12, 17, 9, 8, ответом будет 9 — наименьшее нечётное число, поскольку нечётных чисел в этом массиве меньше.Напишите на одном из языков программирования программу для решения этой задачи. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.Паскальconst N=2000; var a: array [1..N] of integer; i, j, k, m: integer; begin for i:=1 to N do readln(a[i]); … end.Задача 2Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -20 до 20 − сведения о температуре за каждый день ноября. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит максимальную температуру среди дней, когда были заморозки (то есть температура опускалась ниже нуля Гарантируется, что хотя бы в один день ноября была отрицательная температура.Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать части из них.Паскальconst N=30;var a: array[1..N] of integer;i, j, max: integer;beginfor i:=l to N do readln(a[i]);...end
Ответы
Type mas = array[1..8] of integer;
var
A, F, Q: mas;
C:array[1..8] of real;
i: integer;
function M(x,y:real):real;
begin
Result:=(x*x+y*x)/2+sin(x*y)
end;
begin
clrscr;
writeln('Массив первый:');
for i := 1 to 8 do
begin
A[i] := random(10);
write(A[i]:4);
end;
writeln;
writeln('Массив второй :');
for i := 1 to 8 do
begin
F[i] := random(10) ;
write(F[i]:4);
end;
writeln;
writeln('Массив третий :');
for i := 1 to 8 do
begin
Q[i] := random(10);
write(Q[i]:4);
end;
writeln;
writeln('Массив четвертый:');
for i := 1 to 8 do
begin
C[i] := M(A[i],F[i])+M(Q[i],F[i])+M(A[i],Q[i]);
write(C[i]:6:1);
end;
writeln;
end.
var
A, F, Q: mas;
C:array[1..8] of real;
i: integer;
function M(x,y:real):real;
begin
Result:=(x*x+y*x)/2+sin(x*y)
end;
begin
clrscr;
writeln('Массив первый:');
for i := 1 to 8 do
begin
A[i] := random(10);
write(A[i]:4);
end;
writeln;
writeln('Массив второй :');
for i := 1 to 8 do
begin
F[i] := random(10) ;
write(F[i]:4);
end;
writeln;
writeln('Массив третий :');
for i := 1 to 8 do
begin
Q[i] := random(10);
write(Q[i]:4);
end;
writeln;
writeln('Массив четвертый:');
for i := 1 to 8 do
begin
C[i] := M(A[i],F[i])+M(Q[i],F[i])+M(A[i],Q[i]);
write(C[i]:6:1);
end;
writeln;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Выполните действия в двоичной системе счисления 1110+101
Автор: ignashkinamasha
На какие две части делится число в формате с плавающей запятой?
Автор: alesia1986
Для чего можно использовать управляющие кнопки?
Автор: Наталья
Алгоритмизация дано n=11.вычислить n-e значение переменной z. x=0, у=4/2, k=2
Автор: lsuvorova1987
var a,b:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a mod 2=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10) mod 2=0) and (a div 10 <>0) then b:=b+1;
if ((a mod 10) mod 2=0) and (a mod 10 <>0) then b:=b+1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100) mod 2=0) and (a div 100 <>0) then b:=b+1;
if (((a div 10) mod 10) mod 2=0) and ((a div 10) mod 10 <>0) then b:=b+1;
if ((a mod 10) mod 2=0) and (a mod 10<>0) then b:=b+1;
end;
writeln(b);
end.