Маруська

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

MrSTEP

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

Маруська

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

MrSTEP

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

Маруська

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

MrSTEP

Твоя шестая задача
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[i];
a[i]:=r;
end;
begin clrscr;
write ('Введи количество элементов массива: ');
readln (n);
writeln ('Вводи массив: ');
{Вводить через пробел}
for i:=1 to n do begin
read (a[i]);
end;
readln;
writeln;
m:=n div 2;
for i:=1 to m do
obmen;
writeln ('Исправленный массив: ');
for i:=1 to n do
write (a[i], ' ');
readkey;
end.
Поверяй

MrSTEP

Номер 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

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

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

проверяй

MrSTEP

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