admin

Решение заданий C2

Recommended Posts

№1

Дан целочисленный массив состоящий из 40 элеметов, написать алгоритм нахождения минимального трехзначного элемента массива, если такого числа нет, сообщить об этом.

Program C2;

const N=30;

var

i,min:integer;

a:array[1..N] of integer;

begin

for i:=1 to N do readln(a);

min:=1000;

for i:=1 to N do if (a<min) and (a>99) then min:=a;

if min:=1000 then writeln('Такого числа нет') else writeln(min);

end.

№2

Дан целочислительный массив состоящий из сорока элементов. элементы могут принимать различные значения.

написать алгоритм, который находит и выводит сумму элементов наибольшей возрастающей последовательности подряд идущих элементов массива.

jmax:=0;

smax:=0;

j:=1;

s:=a[1];

for i:=1 to n do

if a > a[i-1] then

begin

j:=j+1;

s:=s+a;

end;

else

begin

if j > jmax then

begin

jmax:=j;

smax:=s;

end;

j:=j;

s:=a;

end;

if j> jmax then

smax:=s;

writeln (smax);

№3

Дан целочислительный массив состоящий из сорока элементов. элементы могут принимать различные значения. написать алгоритм, который выводит номер элемента массива, наименее отличающегося от среднего арифмитического.

Program C2;

const N=40;

var a:array[1..N] of integer;

s:real;

i,min,k:integer

begin

for i:=1 to N do begin

readln(a);

s:=s+a;

end;

s:=s/N;

min:=abs(s-a[1]);

for i:=1 to N do

if abs(a-s)<min then min:=a;

for i:=1 to N do if a=min then k:=i;

writeln(k)

end.

Share this post


Link to post
Share on other sites

№2 интересная задачка

дан целочислительный массив состоящий из сорока элементов. элементы могут принимать различные значения.

написать алгоритм, который находит и выводит сумму элементов наибольшей возрастающей последовательности подряд идущих элементов массива.

jmax:=0;

smax:=0;

j:=1;

s:=a[1];

for i:=1 to n do

if a > a[i-1] then

begin

j:=j+1;

s:=s+a;

end;

else

begin

if j > jmax then

begin

jmax:=j;

smax:=s;

end;

if j> jmax then

smax:=s;

writeln (smax);

Share this post


Link to post
Share on other sites

дан целочислительный массив состоящий из сорока элементов. элементы могут принимать различные значения. написать алгоритм, который выводит номер элемента массива, наименее отличающегося от среднего арифмитического)

Share this post


Link to post
Share on other sites
Guest aklag   
Guest aklag

Народ, вы где такие решения взяли? В 1-й задаче вообще нет условия. Что решалось - не ясно, но все равно неправильно. Во второй ошибка в том, что j надо в 1 устанавливать. В третьей просили найти номер элемента, а не сам элемент. Все задачи минус балл, или минус 2 балла.

Share this post


Link to post
Share on other sites

Quicksdk в первой задче надо найти минимальный трехзначный элемент массива, если такого нет то сообщить об этом

третью поправь слегка

Program C2;

const N=40;

var a:array[1..N] of integer;

s:real;

i,min,k:integer

begin

for i:=1 to N do begin

readln(a);

s:=s+a;

end;

s:=s/N;

min:=abs(s-a[1]);

for i:=1 to N do

if abs(a-s)<min then min:=a;

for i:=1 to N do if a=min then k:=i;

writeln(k)

end.

А почему я не могу модерировать эту тему?

Share this post


Link to post
Share on other sites

Quicksdk в первой задче надо найти минимальный трехзначный элемент массива, если такого нет то сообщить об этом

третью поправь слегка

Program C2;

const N=40;

var a:array[1..N] of integer;

s:real;

i,min,k:integer

begin

for i:=1 to N do begin

readln(a);

s:=s+a;

end;

s:=s/N;

min:=abs(s-a[1]);

for i:=1 to N do

if abs(a-s)<min then min:=a;

for i:=1 to N do if a=min then k:=i;

writeln(k)

end.

А почему я не могу модерировать эту тему?

ты модератор, вот и исправь))

Share this post


Link to post
Share on other sites

Создайте учётную запись или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать учётную запись

Зарегистрируйтесь для создания учётной записи. Это просто!

Зарегистрировать учётную запись

Войти

Уже зарегистрированы? Войдите здесь.

Войти сейчас


  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу