Однажды встретились Системный Блок и Клавиатура. - Что у тебя с памятью? - напечатала клавиатура. - Всё нормально, - прогудел Системный Блок, - как проживает твоя сестра Мышка? - Ушла в отпуск, - отпечатала клавиатура, - теперь одна работаю на Компьютер. - Ты всё ещё работаешь на тот Компьютер? - удивился Системный Блок, скрипя процессором. - Да, но я решила работать на тебя. - Вот как! - обрадовался Системный Блок. - Да. Ну ладно, до скорого! Не зависай в нужные моменты! - Удачи! Пусть твои клавиши останутся такими же чистыми, какие они сейчас! Клавиатура и Системный Блок попрощались, после чего их выключили из сети.
Смахивает на наркоманию... Ну, надеюсь, это именно то, что нужно :)
Sub Zadanie16084380() ' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы- ' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе- ' ство положительных элементов i-той строки. ' Если в i-той строке положительных элементов нет, то i-тая строка в матрице ' Z должна быть заполнена нулями Const N = 4 Dim Y,Z,K ReDim Y(N, N), Z(N, N), K(N) S=""
Randomize For i = 0 To N K(i) = 0 For j = 0 To N Y(i, j) = Int(100 * Rnd) - 50 S = S & Y(i, j) & " " If Y(i, j) > 0 Then K(i) = K(i) + 1 End If Next S = S & vbNewLine Next S = S & vbNewLine
For i = 0 To N For j = 0 To N if K(i) = 0 then Z(i, j) = 0 else Z(i, j) = Y(i, j) / K(i) end if S = S & Z(i, j) & " " Next S = S & vbNewLine Next MsgBox (s) End Sub
- Что у тебя с памятью? - напечатала клавиатура.
- Всё нормально, - прогудел Системный Блок, - как проживает твоя сестра Мышка?
- Ушла в отпуск, - отпечатала клавиатура, - теперь одна работаю на Компьютер.
- Ты всё ещё работаешь на тот Компьютер? - удивился Системный Блок, скрипя процессором.
- Да, но я решила работать на тебя.
- Вот как! - обрадовался Системный Блок.
- Да. Ну ладно, до скорого! Не зависай в нужные моменты!
- Удачи! Пусть твои клавиши останутся такими же чистыми, какие они сейчас!
Клавиатура и Системный Блок попрощались, после чего их выключили из сети.
Смахивает на наркоманию... Ну, надеюсь, это именно то, что нужно :)