Большой Воронежский Форум Mobile

Короче такая фишка учусь в техникуме и в инстутуте на з/о Сейчас в техникуме диплом пишу,а в инстутуте заявление написал о сдачи досрочно сессии в связи с призывом в ряды Р.А. И в институте теперь горю зачёт нужен а решать некогда помогите Бога ради(((

1.Дана прямоугольная матрица найти строку с наибольшей и наименьшей суммой элементов.
2Имеется строка содержащая буквы латинского алфавита и цифры, вывести на экран длину наибольшей последовательности цифр идущих подряд.
3.Подсчитать количество положительных чисел среди чисел,а,в,с.
4.При поступлении в ВУЗ абитуриенты получившие "2" на первом экзамене ко второму не допускаются.В массиве А(n)записсаны оценки экзамена учащихся.получившие на первом экзамене.Подсчитать сколько человек не допущено ко второму экзамену. [Ответ]

Henos
http://u-antona.vrn.ru/forum/showthread.php?t=186610 [Ответ]

X0R, денег нет( я на мили( [Ответ]

Сообщение от Henos:
Короче такая фишка учусь в техникуме и в инстутуте на з/о Сейчас в техникуме диплом пишу,а в инстутуте заявление написал о сдачи досрочно сессии в связи с призывом в ряды Р.А. И в институте теперь горю зачёт нужен а решать некогда помогите Бога ради(((

1.Дана прямоугольная матрица найти строку с наибольшей и наименьшей суммой элементов.

var
{прямоугольная матрица}
a : array [1..10,1..20] of integer;

b:array[1..10] of integer;

x,y,i:integer;

begin
randomize;
{заполнение матрицы случ. числами до 1000}
for x:=1 to 10 do
for y:=1 to 20 do
a[x,y]:=random(1000);
{вычисление суммы по строкам}
for x:=1 to 10 do
for y:=1 to 20 do
b[x]:=a[x,y]+b[x];
{метод пузырька}
y:=0;
For i := 2 to 10 do
For x := 10 downto i do
If b[x-1] > b[x] then
begin
y:=b[x-1];
b[x-1]:=b[x];
b[x]:=y;
end;
writeln('максимальная сумма', b[1]);
writeln('минимальная сумма', b[10]);
readln;
end. [Ответ]

mono, можно проще, без второго массива. [Ответ]

const
n = 5;
m = 10;
var
a : array[1..n, 1..m] of integer;
i, j, s, min, max : integer;
begin
Randomize;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := Round(Random * 10 - 5);
Write(a[i, j] : 3);
end;
WriteLn;
end;
max := -MaxInt;
min := MaxInt;
for i := 1 to n do
begin
s := 0;
for j := 1 to m do
s := s + a[i, j];
if s < min then
min := s;
if s > max then
max := s;
end;
WriteLn('max = ', max);
WriteLn('min = ', min);
ReadLn;
end. [Ответ]

Большое спасибо mono и X0R! [Ответ]

Henos, подсказываю:

ПИВО [Ответ]

XOR [Ответ]

X0R, солидарен. [Ответ]

4.При поступлении в ВУЗ абитуриенты получившие "2" на первом экзамене ко второму не допускаются.В массиве А(n)записсаны оценки экзамена учащихся.получившие на первом экзамене.Подсчитать сколько человек не допущено ко второму экзамену.

const n=100;
var A: array[1..n] of byte;
i,k:integer;
begin
k:=0;
for i:=1 to n do
if a[n]=2 then k:=k+1;
writeln('не допущено ко второму экзамену',k);
readln;
end. [Ответ]

или так

const n=100;
var A: array[1..n] of byte;
i,k:integer;
begin
k:=0;
for i:=1 to n do
if a[n]<>2 then k:=k+1;
k:=n-k;
writeln('не допущено ко второму экзамену',k);
readln;
end. [Ответ]

Подсчитать количество положительных чисел среди чисел,а,в,с

какой тип у а, в, с?

2Имеется строка содержащая буквы латинского алфавита и цифры, вывести на экран длину наибольшей последовательности цифр идущих подряд.
если знаете то выложите функцию перевода строки в число, помойму VAL, но точно не помню.... [Ответ]

Сообщение от mono:
положительных чисел

Соответственно, интегер

Сообщение от mono:
если знаете то выложите функцию перевода строки в число, помойму VAL, но точно не помню....

ЕМНИП, со строкой (стринг_ можно работать как с массивом аррай оф чар [Ответ]

mono а,в,с натуральное число и Респектище за задачу [Ответ]

3. Подсчитать количество положительных чисел среди чисел,а,в,с

var
a,b,c:integer;
i:byte;
begin
i:=0;
readln('a= ',a,'b= ',b,'c=',c);
if a>0 then i:=i+1;
if b>0 then i:=i+1;
if c>0 then i:=i+1;
writeln('количество положительных чисел',i);
readln;
end. [Ответ]

2Имеется строка содержащая буквы латинского алфавита и цифры, вывести на экран длину наибольшей последовательности цифр идущих подряд.

var s:string;
i,c,code,n:integer;

begin
readln('строка= ',s);
for i:=1 to lenght(s)-1 do
val(s[i],c,code);

дальше продолжите Henos, а то неинтересно за Вас задачи решать, решите и Вы хоть одну... [Ответ]

Я блогадарен Вам mono я её обязательно решу большое человеческое СПАСИБО! [Ответ]

mono, в задачки с положительными числами была ошибка я изменил
получилось так:
var
a,b,c:integer;
i:byte;
begin
i:=0;
writeln('введите а: ');
read(a);
writeln('введите b: ');
read(b);
writeln('введите c: ');
read(c);
if a>0 then i:=i+1;
if b>0 then i:=i+1;
if c>0 then i:=i+1;
writeln('количество положительных чисел',i);
readln;
end.
вроде правильно) [Ответ]