Помогите с задачей, По информатике Поделиться Опции

[TimNik]

Помогите, пожалуйста, с тремя задачками по информатике...надо написать программу (просто вычисления)
1) Для заданной целочисленной матрице а(n,m) определите является ли сумма ее элементов целыми числами и выведите на печать соостветствующий текст
2) В заданном масиве a(n), замените нулями все отрицательные компоненты
3) Определите, есть ли среди заданных цифр трехзначного числа одинаковые
Всем, кто ответит, гарантированно поставлю +

[mEASYn]

Написал бы хоть в чем писать.

[RuslanSub]

QBasic, надо тестом ну там INPUT "N";N.....

[=BazOOka=]

QBasic... Я уж не помню, могу на Паскале написать.

[RuslanSub]

давай

Добавлено позже (1.6.2007, 21:08):
нужно конечно на Бэйсике

[=BazOOka=]

На паскале надо?? Могу щас сделать

Сообщение отредактировал =BazOOka= - 1.6.2007, 17:16

[RuslanSub]

Только тест исходный надо..ну напишету ктонить уж...убьют ато

[=BazOOka=]

Тексты Паскаля и Бейсика отличаются, так сделайте сами, это несложно

[Tails]

Добавлено позже (1.6.2007, 22:16):

2) В заданном масиве a(n), замените нулями все отрицательные компоненты

Вот на паскале

program qw;
var a:array [1..n] of real; //вместо n везде прописать число
i:integer;
begin
for i:=1 to n do //ввод чисел массива
readln(a[i]);
for i:=1 to n do
if a[i]<0
then a[i]:=0;
for i:=1 to n do //вывод конечного массива
writeln(a[i]);
end.

еще вариант:

prorgam neo;
begin
while 1=1 do
write('mtrx has u')
end.

Предпочтительнее использование второго варианта.

Сообщение отредактировал Tails - 1.6.2007, 18:18

[RuslanSub]

Надо срочно на бейсике ВЫРУЧАЙТЕ!