Вопрос по информатике:
Помогите срочно, плиз! Pascal
1)Дана матрица. Вывести на экран все четные строки, то есть с четными номерами.
2)Заполнить матрицу так, чтобы сумма элементов в каждой строке была равна номеру этой строки.
- 05.02.2016 06:27
- Информатика
- remove_red_eye 5969
- thumb_up 8
Ответы и объяснения 1
Const z = 50;var A:Array[1..z,1..z] of integer;n,i,j:integer;beginwrite('Введите размер массива ');readln(n);for i:=1 to n dobeginfor j:=1 to n dobeginA[i,j]:= random(100)-50;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i mod 2 =0 thenwrite(A[i,j]:4);end;writeln;end;
- 06.02.2016 03:31
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.