Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа исходного

@ZheniaStar · Регистрация: 03.01.2013

Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив,элементами которого являются суммы первой и последней цифры каждого числа старого массива . Массив вывести в виде таблицы

@CodeR · 17.01.2013, 09:24

Pascal

Uses Crt;
Var A,B:array[1..10,1..10] of integer;
    i,j,n,m:byte;
Function F(n:integer):integer;
Var s,t:integer;
Begin
    n:=abs(n);
    s:=n mod 10;
    n:=n div 10;
    t:=0;
    While n>0 do
    Begin
      t:=n mod 10;
      n:=n div 10;
    End;
    F:=s+t;
End;
Begin
    ClrScr;Randomize;
    write('Кол-во строк: ');readln(n);
    write('Кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(401)+100;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    writeln('Полученная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        B[i,j]:=F(A[i,j]);
        write(B[i,j]:3);
      End;
      writeln;
    End;
    readln;
End.

@ZheniaStar 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 23
		1
	Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа исходного 16.01.2013, 20:37. Показов 1538. Ответов 1 Метки нет (Все метки) Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив,элементами которого являются суммы первой и последней цифры каждого числа старого массива . Массив вывести в виде таблицы __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа исходного

Решение