помогите пожалуйста написать программу, паскаль.
10-11 класс
|
program gt;
var k,n,i,j,h,s:integer;
a:array[1..100,1..100]of integer;
begin
readln(k,n);
s:=0;h:=-n-1;
for i:=1 to k do
begin
s:=0;
for j:=1 to k do
begin
h:=h+1;
if(h=0)then h:=h+1;
a[i,j]:=h;s:=s+a[i,j];
write(a[i,j]:3,' ');
end;
writeln('s=',s:3);
end;
writeln;
for j:=1 to k do
begin
s:=0;
for i:=1 to k do
s:=s+a[i,j];
write(s:3,' ');
end;
end.
Другие вопросы из категории
2.Составить программу, вычисл. произведения положительных и сумму отрицательных элементов.
1) Pentium
2) Celeron
3) i80860
4) TMS 320C30 Z80
5) Z80
подпрограммы функция!плииззззззззззз помогите:)
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Написать программу, которая вычисляет среднее арифметическое элементов с четными индексами и среднее арифметическое с нечетными индексами.
Ввод: Число N и элементы массива вводятся из Файла.
Вывод: В файл должны быть введены 2 вычисленных значения
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
1,Найти
наименьший элемент массива (начиная с k-го) и
его порядковый номер. Поменять местами k-тый и найденный минимальный элемент.