Написать программу q basic даны 2 одномерный числовых массива размерностью n . создать третий массив , элементы которого равны сумме элементов двух других . найти наименьший элемент массива
CLS RESTORE N = 14 DIM M1(14), M2(14), M12(14) DATA 2,3,4,5,6,3,4,-8,7,3,-44,55,2,3 DATA 12,43,4,45,6,23,4,8,7,3,4,-5,2,53 FOR i = 1 TO N READ M1(i) PRINT M1(i), NEXT i PRINT "" FOR i = 1 TO N READ M2(i) PRINT M2(i), NEXT i PRINT"" k = 1 mim = M1(k) + M2(k) FOR i = 1 TO N M12(i) = M1(i) + M2(i) PRINT M12(i), IF M12(i) < min THEN min = M12(i) k = i END IF NEXT i PRINT"" PRINT "N="; k, min
int a; int b; Console.WriteLine("Введите первое число"); a = int.Parse( Console.ReadLine()); ///1)Вводим первое число Console.WriteLine("Введите второе число"); b = int.Parse(Console.ReadLine()); ///2) Вводим второе число
if (a < b) Console.WriteLine("Меньше а = " + a); ///3)Сравниваем, если а<b пишем а if (a > b) Console.WriteLine("Меньше b = " + b); ///4)Сравниваем, если а>b пишем b if (a == b) Console.WriteLine("а = b = " + a); ///3)Сравниваем, если а=b пишем а
// PascalABC.Net 3.0, сборка 1066 var s,s1:string; i:integer; a:char; begin Write('Введите натуральное число любой длины :'); Readln(s); Write('Введите цифру, которую надо удалить: '); Readln(a); s1:=''; for i:=1 to Length(s) do if s[i]<>a then s1:=s1+s[i]; Writeln('Результат: ',s1) end.
Тестовый прогон: Введите натуральное число любой длины :3141592653589793 Введите цифру, которую надо удалить: 5 Результат: 3141926389793
2. Современное решение (так в школе почему-то не учат)
// PascalABC.Net 3.0, сборка 1066 begin var s:=ReadString('Введите натуральное число любой длины :'); var a:=ReadChar('Введите цифру, которую надо удалить: '); Write('Результат: ',s.Replace(a,'')); end.
RESTORE
N = 14
DIM M1(14), M2(14), M12(14)
DATA 2,3,4,5,6,3,4,-8,7,3,-44,55,2,3
DATA 12,43,4,45,6,23,4,8,7,3,4,-5,2,53
FOR i = 1 TO N
READ M1(i)
PRINT M1(i),
NEXT i
PRINT ""
FOR i = 1 TO N
READ M2(i)
PRINT M2(i),
NEXT i
PRINT""
k = 1
mim = M1(k) + M2(k)
FOR i = 1 TO N
M12(i) = M1(i) + M2(i)
PRINT M12(i),
IF M12(i) < min THEN
min = M12(i)
k = i
END IF
NEXT i
PRINT"" PRINT "N="; k, min