| greenfa1ry |
15-12-2012 23:24 2046135 |
Помогите пожалуйста, для зачета надо
нужно сделать в Turbo Pascal
я долго пытался но так и не получилось
задание.
Найдите сумму квадратов неотрицательных элементов в заданном целочисленном одномер¬ном массиве.
Я буду искренне благодарен.
|
| greenfa1ry |
15-12-2012 23:31 2046143 |
без ограничения
|
Цитата:
Цитата greenfa1ry
я долго пытался но так и не получилось »
|
Наброски, заметки, ваши попытки в студию. |
| greenfa1ry |
16-12-2012 14:32 2046407 |
Код:
program 3ad_2;
const n=10;
var
a:array [1..n] of integer; i,s integer;
begin
for i:=1 to n do
writeln ('vvedite nomer elementa masiva ',i,':');
readln (a[i]);
end;
s:= 8
for i:=1 to n do begin
if a[i] mod 0=8 then s:=s/a[i];
end;
writeln ('oroizvidenix elementov kratnux vosmi ',s. ' . ');
readln;
end.
побывал по примеру писать получилось как-то так |
Пример почти правильный. Надо его подогнать под ваше условие
Цитата:
Цитата greenfa1ry
Найдите сумму квадратов неотрицательных элементов в заданном целочисленном одномер¬ном массиве. »
|
Для этого замените 3 строчки
Цитата:
Цитата greenfa1ry
if a[i] mod 0=8 then s:=s/a[i]; »
|
Цитата:
Цитата greenfa1ry
writeln ('oroizvidenix elementov kratnux vosmi ',s. ' . '); »
|
|
| greenfa1ry |
16-12-2012 15:06 2046428 |
Код:
program aaaa;
const = 10;
var array [1..n] of real; sum: real; i : integer;
begin
writeln ('vvedite kvadrat neotrecatelnix elementov');
for:= 1 to n do
readln (a[1]);
writeln;
write ('vvedite 4iclo v 3adanom masive, sum = ');
readln (sum);
sum:= (не имею понятия как правильно понять что требует найти в задаче, точнее формулу)
for i:=1 to n do
if a [1] = sum then;
writeln ('takogo 4icla v masive nety');
end.
я не знаю что ввести мне в значение sum
значение sum (сумма) я взял для того чтобы проще было обсчитать пример, поскольку надо вбить формулу для подальшего обсчета. |
Время: 16:10.
© OSzone.net 2001-
