Получить сумму тех чисел данной последовательности, которые удовлетворяют условию

@chimik · Регистрация: 28.05.2010

Author24 — интернет-сервис помощи студентам

народ плиз помогите решить 2 задачки по паскалю)))
1)Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые удовлетворяют условию а(i)<(i^2)
2)Дано натуральное число n. Выяснить сколько положительных элементов содержит матрица [a(i,j)] i,j=1..n , если a(i,j)=sin(i+j/2)
заранее спасибо)))

@PreviouS · 28.05.2010, 17:04

1)
program a1;

Pascal

uses crt;
var a:array [1..50] of integer;
i,b,s:integer;
begin clrscr;
randomize;
for i:=1 to 50 do
a[i]:=random(100);
for i:=1 to 50 do
if a[i]<(i*i) then
s:=s+a[i];
writeln('Сумма элементов удовлетворяющих условию a[i]<(i^2): ',s);
end.

@chimik · 28.05.2010, 17:06 **[ТС]**

спасиб))

@PreviouS · 28.05.2010, 17:18

2)

Pascal

program a1;
uses crt;
const n=;
var a:array [1..n,1..n] of real;
i,s,j:integer;
begin clrscr;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=sin(i+j/2);
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then s:=s+1;
writeln('Количество положительных элементов массива: ',s);
readln;
end.

Там с константе введёте число которое вам дано.

@chimik · 28.05.2010, 17:28 **[ТС]**

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

Получить сумму тех чисел данной последовательности, которые удовлетворяют условию

Решение

Решение

@chimik 0 / 0 / 0 Регистрация: 28.05.2010 Сообщений: 8
		1
	Получить сумму тех чисел данной последовательности, которые удовлетворяют условию 28.05.2010, 16:02. Показов 1676. Ответов 4 Метки нет (Все метки) народ плиз помогите решить 2 задачки по паскалю))) 1)Даны целые числа а1,…,а50. Получить сумму тех чисел данной последовательности, которые удовлетворяют условию а(i)<(i^2) 2)Дано натуральное число n. Выяснить сколько положительных элементов содержит матрица [a(i,j)] i,j=1..n , если a(i,j)=sin(i+j/2) заранее спасибо))) 0

@chimik 0 / 0 / 0 Регистрация: 28.05.2010 Сообщений: 8
	28.05.2010, 17:06 [ТС]	3
	спасиб)) 0

@chimik 0 / 0 / 0 Регистрация: 28.05.2010 Сообщений: 8
	28.05.2010, 17:28 [ТС]	5
	спасиб большое)) 0

Опции темы