Помогите пожалуйста, спасите от отчисления

[Маруська]

Помогите пожалуйста, спасите от отчисления

в паскале нужно написать проги.... что то легкие но до меня не доходит
1. найти произведение всех чисел, меньших заданного числа х на интервале от -3 до 27 (цикл с постусловием)....
2.найти все элементы массива вещественных чисел с, больше заданного числа k....
3.найти сумму элементов массива целых чисел, кратных 5 и 8 одновременно...
4.в линейном массиве целых чисел a заменить все элементы, бельшие второго и меньшие пятого, на сумму второго и пятого...
5.в двумерном массиве b(10,12) заменить все положительные элементы 9-ой строки на число k...
6. переписать линейный массив вещественных чисел из 10 элементов в обратном порядке....

 

[MrSTEP]

Возьмусь, но надо некоторое время. Сколько у тебя срока?

 

[Маруська]

вообще чем быстрее тем лучше... помоги пожалуйста

 

[MrSTEP]

Сейчас берусь. Пока беру 1 и 5ые

 

[Маруська]

спасибо, буду ждать

 

[MrSTEP]

№6

Твоя шестая задача
uses crt;
var i,j,n,m:integer; a:array [1..10] of real;
procedure obmen;
var r:real;
begin
r:=a[n+1-i];
a[n+1-i]:=a;
a:=r;
end;
begin clrscr;
write ('Введи количество элементов массива: ');
readln ;
writeln ('Вводи массив: ');
{Вводить через пробел}
for i:=1 to n do begin
read (a);
end;
readln;
writeln;
m:=n div 2;
for i:=1 to m do
obmen;
writeln ('Исправленный массив: ');
for i:=1 to n do
write (a, ' ');
readkey;
end.
Поверяй

 

[MrSTEP]

№1

Номер 1.
В твоем конретном случае, где интервал начинается с отрицательного числа, при положительном Х результат будет равным нулю. Так что при проверке вводи интервал ТОЛЬКО из положительных или ТОЛЬКО из отрицательных чисел.
uses crt;
var a,b,i,x,p:integer;
begin
clrscr;
writeln ('Введи число X: ');
readln (x);
writeln ('Введи интервал: ');
{-3 27}
read (a,b);
i:=a;
p:=1;
repeat
if i<x then
p:=p*i
else
break;
inc(i,1);
until i>=b;
writeln ('Искомое произведение равно ', p);
readkey;
end.

 

[MrSTEP]

№5

номер 5

uses crt;
var a:array [1..50,1..50] of real; i,j,m,n,x,k:integer;
begin
clrscr;
writeln ('Введи размер массива:');
{10 12}
read (m,n);
writeln ('Вводи массив');
{* * * *
* * * *
* * * *}
for i:=1 to m do
for j:=1 to n do
read (a[i,j]);
writeln ('Срока, где необходимо сделать замену');
{9}
readln (x);
writeln ('Введи число К');
{k}
readln (k);
for i:=1 to n do
if a[x,i]>0 then
a[x,i]:=k;
writeln ('Результат');
for i:=1 to m do begin
for j:=1 to n do
write (a[i,j]:3:1,' ');
writeln;
end;
readkey;
end.

Зведочки - числа в массиве, так вводить надо.

 

[MrSTEP]

№3

задача номер 3

uses crt;
var a:array [1..50] of integer;
i,n,s:integer;
begin
clrscr;
write ('Введи размер массива: ');
readln ;
s:=0;
writeln ('Вооди массив');
for i:=1 to n do begin
read (a);
if (a mod 5=0)and(a mod 8=0) then
inc(s,a);
end;
writeln ('Сумма кратных элементов: ', s);
readkey;
end.

проверяй

 

[MrSTEP]

Пока все, покидаю рабочее место. Завтра как можно раньше постараюсь сделать остальное. Надеюсь успею спасти

 

[AlexZir]

2.найти все элементы массива вещественных чисел с, больше заданного числа k....

uses crt;
var c: array [1..100] of real;
     n, i: integer;
     k: real;
begin
writeln("Введите размерность массива");
readln(n);
writeln("Введите элементы массива");
for i:=1 to n do
readln(c[i]);
writeln("Введите значение параметра k");
read(k);
for i:=1 to n do
if c[i]>k then writeln(i," элемент массива имеет значение ", c[i]);
readkey
end.

4.в линейном массиве целых чисел a заменить все элементы, большие второго и меньшие пятого, на сумму второго и пятого...

листинг ниже приведен для фиксированных значений второго и пятого элементов, в противном случае их сумма должна динамически изменяться в последнем цикле в первые 5 проходов

uses crt;
var a: array [1..100] of integer;
     n, i, s,tw,fi: integer;
begin
writeln("Введите размерность массива");
readln(n);
writeln("Введите элементы массива");
for i:=1 to n do
readln(a[i]);
 tw:=a[2];
fi:=a[5];
s:=tw+fi; //можно обойтись и без этой переменной, но ввел ее для наглядности
writeln("Второй элемент равен ", tw, " Пятый элемент равен ", fi, " Сумма второго и пятого элементов равна ",s);
writeln("Массив до замены имеет вид:")
for i:=1 to n do 
write(a[i]:6);
writeln("Массив после замены имеет вид:")
for i:=1 to n do begin
if (a[i]>tw) and (a[i]<fi) then a[i]:=s;
write(a[i]:6); end;
readkey
end.

 

[MrSTEP]

Ну вот, и AlexZir тоже помог. Только заказчика не видно что-то, я волнуюсь.

В правом верхнем углу окна редактирования есть значок отключения-показа тегов, нажимаете ее и все теги оформления показываются, лишние можно удалить . Ваш модератор.

 

[Маруська]

спасибо большое

 

[VipeR]

девушку спасли просто, а тут, как всегда, "спасибо большое" ..... вот надейся потом

 

[Маруська]

огромное спасибо, теперь осталось сдать спасибочки

 

[Маруська]

VipeR - а что ты хотел??? и тебе люди помогут в следующий раз...

 

[AlexZir]

Viper, гы! И тебе помогут (C)

Маруська, удачной сдачи .

 

[MrSTEP]

Маруська, ну ты тогда хоть о результатах скажи

 

[Маруська]

Конечно скажу, как сама буду знать