Напишите программу на языке программирования паскаль создания массива состоящего из 6 элементов,которые заполнены с ввода с клавиатуры и выведенны на экран
#include <vector> #include <algorithm> using namespace std; int main() { string s; vector<char> vowels = {'a','e','i','o','u','y'}; cin >> s; int count_letters = 0; //сколько букв одной гласности подряд int count = 0; // сколько букв добавить int state = -1; //для гласности int c = state; // для запоминания for(int i = 0 ;i < s.length(); i++, c = state) { if(find(vowels.begin(),vowels.end(),s[i])!= vowels.end()) state = 0; else state = 1; if(c==state) count_letters++; if(count_letters == 3) { count_letters = 1; //так как одна буква остается справа от разделяющей count++; } } cout << count; }
Const N = 4; Var A:array[1..N,1..N] of real; B,X,AX:array[1..N] of real; i,j:integer; S:real; Begin Randomize; Write('B(',N,'):'); For i:= 1 to N do Begin B[i]:=random(721)-360; Write(' ',B[i]:4) End; WriteLn; Write('X(',N,'):'); For i:= 1 to N do Begin X[i]:=random(721)-360; Write(' ',X[i]:4) End; WriteLn; WriteLn('A(',N,',',N,'):'); For i:= 1 to N do Begin Write(' '); For j:= 1 to N do Begin A[i,j]:=random(721)-360; Write(' ',A[i,j]:4) End; WriteLn; End; WriteLn; Write('AX:'); For i:= 1 to N do Begin AX[i]:=0; For j:= 1 to N do Begin AX[i]:=AX[i]+A[i,j]*X[j]; End; Write(' ',AX[i]) End; WriteLn; Write('AX+B:'); For i:= 1 to N do Begin X[i]:=AX[i]+B[i]; Write(' ',X[i]) End; WriteLn; Write('|Ax+b| = '); S:=0; For i:= 1 to N do Begin S:=S+X[i]*X[i]; End; WriteLn(Sqrt(S)) End.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(6); a.Println;
end.
Пример
-5 6 0 4
12 7
-5 6 0 4 12 7